Se ae SE 


PILE: TAPE MAC: pADANT 


LUCATION OBFEET CODE LINE 


(0008) 
CuvO8) 
€0018> 
C0028 > 
(9038) 
C0048) 
(0058> 
C0068) 
€0078> 
,U0DE> 


(0088) 
4 O9R > 
<006A8> 
CuORB) 
CGUCB> 


C0000) 
Cyudd)> 
C0002) 


1 
3 
4 
a 
6 
7 


3 


9 


10 


11 
12 
13 
14 
15 
16 
17 
18 
19 
2u 
at 
22 
23 
24 
2s 
26 
27 
28 
29 
30 
31 
32 
33 


56 
wu? 
te) 


HEWLETT -PALKARD: TAPE MAC (Cc)? Coleco 19683 Confidential Mon, 7 Nov 19635, 


SUURCE LINE 


*S801% 
NAME “Rey O1 - HNE* 
De_TAPE_ MAC MACRO jHeader Rev. 4 
«GUO Ede_TAPE_MAC 
Project: NET, 83-101 
O33 SS RE RG He HE RE RG SE HE HE HE Se PS EE EE ES HOS HE WS 
ss Sf 
38 TAPED MeéeC FIMES 
ES HE 
BS LINK SS CE NCT OO) ORO EN SM es Sf 
ss €:3 €:3 > Ma b-l 8 
SE RE HE HE GE HE KE HE He US AE KE RE He TE AS RE RG SEE EE SS 
Rev History 
Rev. Date Name Change 
1 PTSSEP 10454 HME After sending out a block with a bad cs, 
mangle CURRENI_RAM to prevent us from re-transmission 
0 16AUG1 601 HME Initial code 
Ede _TAPE_MAC MEND 
3 
3 LOCAL EQUATES 
; : 
CLE COMMAND_BUFFER 
GLA CURRENT_RAN 
GLE IO_STATUS_BLOCK 
GLE LENGTH _UF_TO_ STATUS 
GLH TAPE_NAC 
GLE TAPE _STATUSO 
GLE TAPE _STAIUS1 
) . 
NODE _ ADDRESS EQU OGH ; > ARE WE NOT TAPE? 
MN_RESET EU BUHXI6+NODE_ ADDRESS 
MN_STATUS EGU OLHXTG+NODE ADDRESS 
MN_ACK EQU D2HX164+NODE_ ADDRESS 
MN_CLR EWU OSHXLOtNODE ADDRESS 
MN RECEIVE © EQU G4AH*X1G+NUDE ADDRESS 
MN_ CANCEL EQU OSHXTS+NUDE_ ADDRESS 
MN_SEND EWU OGHXI6+NODE ADDRESS 
HN_NACK EQu O7HXLT6+NODE ADDRESS 
MN READY EWU UDHXLG+NODE ADDRESS 
} 
$ NM_STATUS BAW OEHEL6+NODE ADDRESS 
NM_ALK -EQU UPHXTO+NODE AUDREDSS 
NM CANCEL EQ QAHXITG+tNODE _ADDKESS 
NM_SEND EQU UBHX1LOtNUDE ADDRESS 
NM_NACK AA OCH*164+NUDE ADOKE GS 
i 
s5TATES 
} 
CNTR L EGU 8 
LENGE HE EWU 1 
LENGTH LY EGU 2 


10 


rats 


PAGE 


1 


a 


FILE: TAPE MAC: pADAMT 


HEWLETT-PACKARD : 


LUCATLON OBJECT CODE LINE 


v0 
0005 
vOOA 
0goc 
vooD 
OOF 
0010 
0014 
HOLS 
0016 


(0003) 
Cub04) 
(0005> 


<0008> 
Cgonge> 
CUO52) 


<BVUO0> 
C0001) 


(0002) _ 


€9003> 
C0004) 


(0001) 


ny 
&U 
$1 
62 
&3 


SUURCE LINE 


IGNORE _JUNK EWU 
DATAIN EQU 
CS_IN EWU 

; 

; STUFF TO WRITE IN 
C_READ EQU 
C_WRITE E QU 
C_REWIND EGU 

; 

; STATII WRITTEN BY APP. 
S_OK EWU 


S_KADBLK EQU 
S NOBLOCK EQU 
S_NOTAPE EQU 
S NODRIVE EQU 


TAPE _MAC 


NIM 


; 
LENGTH_OF _I0_STATUS EQU 
; IMPORTANT STUFF 


? 


COMMAND_ BUFFER 
CURRENT_RAM 
COUNT 
GO_TO_TAPE 
MEM_PTR 
CS_BYTE 


5 RAM_LSTATUS 


10_STATUS_BLOCK 
TAPE_STATUSO 
TAPE_STATUS1 


? 


DATA 
RN& 
RMB 
RMB 
RM 
RME 
RH 
RME 
RMB 
RMB 
RE 


EX? 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 


(ce) Coleco 1783 Confidential 


LF x bt 


ot Seale head 2* Saad x See &:] 


MYP_TR_TRANS 
NTP_TR_TCU 
MIP_TR_REC | 
MIP_NIM_WRITE 
CURRENT STATE 
DATA_BUFFER 
M_S1G 


Mon, 


7 Nov 


190%, 


1H:28 


PAGE 


ic 


FILE: TAPE_MACG: paDAMT 


LOLAPTION 


o000 
vov0s 


vuOos 
0907 


0009 
uloOe’ 


oooD 


0010 
voile 
0013 
v016 
0017 
vv19 


bU1B 
OdiD 
OO1F 
0021 
yd23 
0025 


ORSEOT 


BDOCOG 
2508 


C61B 
D711 


8400 
9700 


JEOISE 


D400 
O68 
CEVOQTE 
3A 
EEOO 
6E00 


0027 
00F6 
OOFF 
12k 
0132 
0140 


CODE LINk 


99 
100 
101 
102 
10% 
104 
183 
106 
107 
Lous 
109 
110 
111 
112 


115 


114 
115 
114 
117 
118 
119 
120 
121 
122 
123 
124 


12% 


SOURUE LINE 


HEWLETT-PACKARD! TARE NAC 


PROG 


3 HAIN PROGRAM HERE 


TAPE_NAL 


3 SET WAKEUP BIT 


DATA_FOUR_US 


; JUMP TABLE 
STATE TABLE 


JSR 
BOS 


LDAB 
STAR 


LDAA 
STAA 


JMF 


LDA 
LSLB 
LDX 
ABX 
LDXx 
JMP 


FDR 
FDB 
FOB 
FDB 
FDS 
FD 


fc) Coleco 1L¥YhS Contridential 


MTP OTR OREC 
DATA_FOR US 


#000110118 
011H,D 


#CNTRL . ; HACK TU COMMAND MUDE 
CURRENT STATE, D 

JUST _RETURN 

CURRENT STATE ,D 


$S7TATE_TABLE 


CONTROL 
GET_LENH 
GET_LENL 
GET_ JUNK 
GET_DATA 
GET_CS 


tion, 


wy 
f 


Nov 


19%, 


10 


ere 
rey 


P Alsk 


3 


FILE: TAPE_MAC:paADAMI 


LOCATION UBJECT 


G027 
0027 
UGe9 


vuzE 
avz2C 
002F 
0032 
v034 


0036 
v038 


VOSA 
0O03C 


DOSE 
0041 
0041 
Y043 
0045 
vvu47 
0048 


004A 


064C 
vo4c 
OO4E 
‘OU4F 
0052 


GOSS 


0057 


yOSS 
QOSK 
voOSD 
V040 
vOGD 
0042 
VOU64 
G0457 
vO67 
G09 
HG6C 
QO6E 
yO71 
0073 
v076 
0076 


Bids 
2607 


OD 
BDOG00 


TEQI9E 


8118 


2755 


8139 


27735 


8148 
2617 


CEUOUS 


840k 
oc 
RDOGUO 
7EOL9VE 


81 6& 
2607 


8601 
9700 
FEQVA 


81 D8 
2715 
FEDISE 


Bly 
ROO000 
2506 
BDOOUG 
2505 
FEQIVE 


7EQLAB 


CODE LINE 


HEWLETT -PAULKARD: 


SUURGE LINE 


TAPE MAC 


(c?)d Coleco 1945 Contidential 


KER HK IE I I KR EK EH KK KM KR KEKE 
x CUNTROL STATE x 
KEXKKMEKAE KKK ARK KK KKM ERA KK RE KEKE KKK KKK KKK KEK 
CONTROL. 
CMPA #MN_ RESET 
HNE NOT RESET 
SEC 
ISK MTP NIM WRITE 
JP JUST RETURN 
Po 
NOT_RESET CMPA #MN_STATUS 
BE SEND_ STATUS 
> 
CMPA $MN_CLR 
BER SEND _ DATA 
? 
CMPA $#MN_ RECEIVE 
HNE NOT RECEIVE : 
3 TEST TO SKE IF COMMAND_BUFFER = CUKRENT_RAM 
LDX #5 
B_TEST : 
LDAA COMMAND _ KUFFER-1,X 
CHPA CURRENT _RAM-1 ,X 
BNE DUNT _HAVE_ TT 
DEX 
KNE B_TEST 
3 OK. WE HAVE IT IN RAM 
BRA SEND_ACK 
3 WE HAVE TO SPIN UP THE fAPE 
DONT_HAVE_TT 
LDAA $C READ 
CLE 
JSR MIP NIM WRITE 
JMP JUST _ RETURN 
> 
NOT _ RECEIVE CMPA #MN_ SEND 
BNE NUP _ SEND 
3 SEND STATE 
LDAA FLteNGTH_HI 
S1AA CURRENT STATE ,D 
Jar JUST RETURN : 
NOT SEND 
CrrA #AN READY 
Bef SEND _ AUK 
Jp JUST RETURN 
SEND _ NACK 
LDAA EAM NACK 
JS HYP _LTR TRANS 
BUS ERR I 
JGR MYP OTR TCU 
BCS ERK I 
JMP JUST RETURN 
ERR1: 
Jv RETURN NOW 


Mon, 


? Noy 117i, 


LO32y 


PALE 


4 


mS . 


<: 


Cc @ CC © 


‘ 


FILE: TAPE_MAC : pADAMT 


LUVATION 


0079 
va79? 
0G7B 
UO7E 
0080 
voes 
00935 
vO 
0089 


oueKk 


o08B 
Q08E 
0090 
0093 
vO9S 


vO98 
OO9RB 
DOPE 
B0A0 
uGA2 
00A4 
OA? 
Q0A9 
OAC 
d0AC 
OUAF 
O0AF 
bo0ge2 


UOB4 
0087 
VOR? 


UVUBS 
QORC 
VOBE 


J0c0 
vols 
yO0C6 
vacs 
BOCA 
QCA 
vecD 
G00 
vUDS 
GonoS 
NODS 
vODB 


GEE £ 


B69B 
aDGUdG 
2508 
BDUOUN 
2505 


7EOLIE 


7EOQLAB 


FCOIR? 
DD10 
FCOLEY 
DD12 
EDO1AC 


CEN016 
CC0005 
DDOA 
8688 
97 UF 
BDOLZE 
2503 
7EOLSE 


7EQLAR 


7D0004 
2705 


B60016 
2005 


H6001S 
8103 
240A 


CEO005 
CCU4UD 
DDOA 
2008 


EDOLTAC 
Ceuor4 
COOO0I 
DDOA 


BDO1LSS4 


2519 


CODE LINE 


1e4 
185 
186 
187 


fo ty Te Te 


2 fos To Mo fo fe fa fe ta 


foo fo fe he 


x 
PCG NA CES Gre 


(Cc) Coleco 198% Canfidential ton, ¥ Nov 19s, 


HEWLETT-PACKARD: TAPE_HAC 
SUURTE LINE 
SEND_ACK 
LAA $n ACK 
JSK MYP_TK_ TRANG 
BOS ERK2 
JSF HYPLTR TCU 
BCS ERR? 
SMP . JUST RETURN 
ERR@: 
JMP RETURN NOW 
3 SEND GUT STATUS PACKET 
SEND_STATUS 
; COPY THE ROM STATUS PACKET CRYTES 0-3) INTO RAM STATUS AREA 
LDD STAT_LNSG_TERL - 
STbv RAM STATUS ,D 
LDD STAT _MSG_TBL+2 
STD RAM_STATUS+2, D 
JOR ASME STATUS 
3 INIT PTRS 
LDX #RAM_STATUS 
LDD #STAT_MSG_LEN 
STO COUNT, D 
LDAA #NM_ STATUS 
STAA CS_RYTE,D } SO THAT CS GETS CLEARED AFTER COMMAND IS SENT 
JSR LSSD 
HOS ERRS 
JMP JUST _ RETURN 
ERRS: 
JMP KETURN NGW 
SEND_ DATA 
TST CUMMAND HKUFFER+4, D 
BEQ CHK _ DRO 
3 SEE IF DRIVE ONE IS EITHER DOWN OR EMPTY 
LDAA TAPE_STATUSI 
HRA SD_2 
CHK _ DRO 
3 WHAT ABOUT DRIVE 0? 
LDAA TAPE _STATUSO 
Sb_2 CMPA #5 NOTAPE, 
BHS Nu_ TAPE 
3 PREPARE DATA FOR GUTPUT. 
3 REG X = PIR TO DATA 
} COUNT,COUNT+1 = BYTES TO TRANSFER 
3 CARRY GET IF LU_STATUS PRECEDES DATA, CLEAR UTHERWISE 
iDX FDATA_BUFFER © 
L.DD #1024 : “ys CONDI TIUNALLY FNCREASE BLUCK SIZE 
STD COUNT ,D 
BR Gi 4 
NO TAPE 
JS Ashik STATUS > PUT STATUS BYTE TUGETHER 
Lx #/U STATUS BLUCK 
LD) ¥1 
5b COUNT ,D 
SD_1 : 
J&R LEVS StkNbD_ DATA 
BES ERR 4 


3 IT GOT SENT Gk, BUY TF 
3 CUMMAND BUFFER SU WE DUN’ PF EVER RESEND IT 


WIE SENT QU DATA WITH A BAD CS, THEN Bash 


10; 


) 
foe 


iy 


PAtE 


we 


om 
on 


a 


FILE: TAPE HAC: pAaADAMT 


LUCATION 


O0DA 
GODD 


vODF 
OGE2 
vOE4 


DUE 
O0E7 
QUE? 


OOERB 
O0ED 
VOFO 
Our DO 
OOFS 
O0F3 


OBJECT 
7D0004 


2705 
BoOOV16 


2003 


B6001S 
8101 
2605 


BOFF 
B70009 


7EOQ19E 


7EOQLAR 


CODE LINE 


wat 
242 
243 
244 
24% 
246 
247 


HEWLETT -PAUKARD: 


SUURCE LINE 


CS_CHKO 


a 


TAPE MAC (co) Coleco 1965 Confidential 


3 WHAT ABOUT DRIVE 07 


CS_CHK CUOMN 


OK_CS_SENT: 


ERRA: 


TST CUMMAND_ BUFFER +4, D 
REQ US _CHKO 

, SEE TF DRIVE ONE IS ELTHER DOWN Ok EMPTY 
LDAA PAPE STATUS 
BRA [G_ CHK _CUMN 
LDAA fAPE_STATUSO 
CMPA #5 _HADBLK 
BNE UK CS_SENT 

; MANGLE COMMAND BUFFER HEYUND RECOGNITION 
LoAA #255 
STAA CURKENT_RAM+4 
gM JUST_RETURN 
JMP RETURN_NOW 


tion, 


*; 
‘ 


Noy 


LYS, 


10:30 


PAG 


ras 


o 


O 


ast 


aa 


FILE: TAPE MAC; pADAMNT HEWLETT-PACKARD: TAPE_MNAC (cd Coleco 198% Conridential rlon, % Noy 1905, 1G: 30 PAGE 
LOCATION UBJECT CODE LINE SUURCE LINE 


Ee eCC ere Correceter et err er Sere ere a PS eee 2 oS 23 
eu * GET LENGTH HI STATE % 
QL ERK KK KKK KK KKK KKH KE KR KEKE EK 
GUFG 262 GET _LENH 
GO0F4 970A 263 STAA COUNT ,D 
DUFS 8602 264 LDAA FLENGTH_LO 
GOFA 9700 265 STAA CURRENT _STATE,D 
GOFC ZEQIYE 264 JHP JUS P_LREFURN 


ceo? 


FILE: TAPE MAU? pADAMT 


LUCATION OBJECT CODE LINE 


268 
269 
270 
vOFF 274 
OOFF 970K 272 
273 
0101 810% 274 
0103 2604 275 
276 
G105 960A 277 
0107 2710 278 
279 
0109 280 
0109 8603 281 
vi0B F700 2u2 
28% 
010D 8401 24 
v10F 970C 285 
286 
O111 CCOBDD 287 
0114 DDOD 268 
289 
0116 7EQI9E 290 
2o1 
0119 292 
0119 8604 293 
0118 9700 294 
295 
v11D 7FO00C 296 
297 
9126 ccoood 298 
v123 DDOD 299 
3600 
0125 7FO00F 301 
302 
0128 7E019E 303 


HEWLETT-PACKARD: TAPL_ NAC (cd Coleco 1¥%3 Confidential 


SUURLE LINE 


COSC CSCC CCC eC CeCCeOCoe CS Se SSCS SE SL Dee Se See ees 
* GET LENGTH LU STATE x 
oC ee Cce eS PP tC eLe reece re De eee eT eS ee es £Le oo 54 
GET _ LENL ; 


STAA CUUNT +1, D 
, 5 BYTE COMMAND PACKET COMING IN? 

CMA #4, 

LINE NOT _S_BYTES 

LDAA COUNT , D 

BEQ CMD COMING _IN 
NOT_5_RYTES 

LDAA #1GNORE_ JUNK 

STAA CURRENT _STATE,D 

LbAAté«‘éS:YAL 

STAA GO_TO_TAPE,D 

LDD #DATA_BUFFER 

STD MEM_PTR,D 

JMP JUST_RETURN 
CMD_COMING_IN 

LDAA #DATAIN 

STAA CURRENT _STATE,D 

CLR GU_TO_TAPE,D~ 

LDD #COMMAND_BUFFER 

STD MEM_PTR,D 

CLR CS_BYTE. 

IMP JUST_RETURN 


Mon, 


7 Woy 


198%, 


10:30 


P tke 


+ 


é 


‘3 


co 


C 


FILE: TAPE_NAL:pADAMT 


LOCATION OBJECT 


O012B C404 
v12D D700 


O12F 7FOQ0F 


CODE LINE 


303 
Su6 
307 
S03 
boy 
316 
311 
$12 
313 
314 
3135 


HEWLETT “PACKARD: 


SGURCE LINE 


TARE 


MAC (cd Coleco [483 Lontidential 


SPS OS ESE OCSOCSS©SS SSPE SSCS ToS S SEP SS SSeS S3 
x GET JUNK STATE 
TPCT eT CC TC ree eC CSTE Ce eecoer erro DeLee faa a4 


; IGNORE 
GET_JUNK 


THIS BYTE , 
LDA 
STAR 


CLR 


x 
BUT SET UP FUR SUCKING 1K 
#DATAIN | 
CURRENT _STA TE, D 


CS_HYTE 


Mon, 


Y Nou 1983, 


10: 30 


PAGE 


> 


C 


Co aS Ae 


CO ® 


FILE: TAPE MAC: pADANT 


LOCATION OBJECT 


0132 


0132 


0134 
0136 
V137 
0139 
0138 
013D 
v1SF 
9142 


0144 ¢& 


0146 
0148 
VI4A 


CODE LINE 


317 
$18 
319 
320 
J2i 
322 
323 
S24 
325 
326 
327 
329 
Jey 
550 
351 
3S2 
333 
334 


HEWLETT-PACKARD: 


SUURCE 


LINE 


TAPE Nat 


(c) Coleco 1995 Confidential 


MH R KH KK IR I EE IE EE I EE OK 
x GET DATA IN STATE 
tee eee eS Ste SCS CESSES SSCS S SPIES SOLS LS Le Ss 


GET DATA 


3 NO MORE 


LDx 
STAA 
LNX. 
STX 
EURA 
STAA 
LDD 
SUED 
STD 
BNE 
LDAA 


STAA 
BRA 


x 


MEM _PTR,D 
0x 


MEM_PTR,D 
C&_BYTE,D 
CS_BYTE,D 


COUNT, D 

JUST RETURN ; ALL DUNE AT 0 
#CS_IN 

CURRENT_STATE, D 

JUS T_RETURN 


Mon, 


“y 
, 


Nov 


19us, 


10:30 


PAGE 


10 


Cx 


an 
us a < 


‘CC @ C 


FILE: TAPE_MAC:pADAMT 


LUCATION 


0159 
viSE 
O1SE 
1S 
0161 


0164 


ORJECT 


C600 
D706 
F1OF 


2 2703 


FEDUG? 


760C 


2603 
JEDUTY 
6c 
860 
BD0000 


CODE LINE 


336 
337 
338 
339 
340 
341 
34e 
44S 
344 
345 
346 
34? 
348 
349 
350 
S51 
342 
353 
354 
355 
356 


HEWLETT-PACKARD: TAPE MAC (cd Coleco 1945 Confidential Non, 7 Nov 1903, 


SUURGE LINE 


Toe ete See See PeSeLePTe CeCe errr cr cece crcrer es. 
* GEF CHECK SUM STATE x 
JO GE EO IEE RG” 
GET_CS 

LDAK #UNTRL 

STAR CURRENT _ STATE ,D 

GHA CS_BYIE,D 
* BNE SEND_NACK 

BEG GUS_1 

Jmp “SEND _NACK 


3 WE WIN- CHECK SUN IS OK! 
TELL GUY TO DUMP TO TAPE (IF NOT CMD PKT) 


? 
GCS_1 LDAA GU_10_TAPE, D 
x BEQ GEND_ACK 

BNE GES_2 
GCS_SA JMP SEND_ACK 
6CS_2 CLE 

LDAA #C_WRITE 

JSR MYP_NIM_WRITE 
x BRA GEND_ACK 

BRA GCS_SA 


we 


SINCE WE DONT WANT THIS ON TAPE, 
THIS MUST BE A CUMMAND PACKET. 


10330 


P Atsk 


il 


=) 


© 


C 


oe 


wv 


FILE: TAPE_MAG:paADANT 


LOCATION OBJECT 


0166 


0166 
0168 
0168 


016D 
O16F 
0172 


v174 
0176 


v1I79 


0178 


Q17E 
O17E 
v180 
0183 


0165 
0187 
0189 
018A 
d18c 
V1BF 
Qi? 


0193 
O19S 
0198 
Q19A 
019D 
Q19D 


VISE 


BIPE 
Gial 


O1AS 
VIAS 
01A7 
01AS 
OLAB 


BORG 
RDO0G00 
2530 


9E0A 
BDGOG00 


960F 
BHOOOD 
250% 
BeOOUO 


39 


HOO 
2708 


Boda 
9714 
7611 
F612 
OR 


CODE LINE 


St 
S5Y 
450 
361 

362 
363 
364 
465 
364 
367 
368 
36 
370 
371 

$72 
373 
374 
375 
376 
377 
378 
379 
300 
584 

382 
383 
384 
385 
366 
387 
38g 
3B? 
390 
391 
392 


Cc) Coleco 178% Contidential 


HEWLETT “PACKARD: TARE MAC Mon, 
SOURCE LINE 
} 
> SUBROUTINE TO DUMP DATER GUT GN NET 
> 
LETS_SEND_ DATA 
5 ASSUMES PTR IN X, BYTES TO TRANSNI] IN COUNT,COUNT +1 
3 FIRST, SEND COMMAND TO MASTER 
LDAA #NM_ SEND 
J&R MTP_TR_TRANS 
BOS ERRS 
; NEXT, HIGH BYTE OF TRANSMISSION LENGTH 
LDAA COUNT ,D 
JGR MIP_TR_TRANS 
RCS ERRS 
; NEXT, LOW BYTE 
LDAA COUNT+1,D 
JGR MYP_TR_TRANS 
RCS ERRS 
CLR CS_RYTE 
LSSn 
LDAA 0,X 
JSR MiP_TR_TRANS 
RCS ERRS - 
EORA CS_HYTE,D 
STAA CS_BYTE,D 
INX 
LDD COUNT ,D 
SUED $1 
s7TD COUNT, D 
BNE LSOSb 
3 LASTLY, SEND CHECK SUM 
LDAA CS_HYTE,D 
JSR MIP_TR TRANS 
KGS ERR 
JSR MPP _TR_TCU 
ERR3: 
RIS > ALL DUNE HERE 
CeCe CCE eee re Peeecee Ser eee Pere rr ree rere Sat De £3 
x YH: END IS NEAK x 
KH MM EK EE EE RE RK 
JUST_RETURN 
3 IF WE’VE JUST TOLD THE APP TO DG SUMETHING, DISABLE REC INTRPTS. 
Sf MH oSiGe, 
Hk. RETURN NOW 
3 DISABLE INTRPTS 
LDGA #0 AH 
STAA u1dH 3 CLEAR FHE ENABLE BIT 
LDAA oii ; CLEAR ANY PENDING LNTRET 
LpAA biZH 
RETURN NUH RL 


7 Nay 


1943, 


10:41 


PaisE 


16 


£3 


C} 


O 


ic @ ¢ 


FILE: -TAPE_MAC: pADAMT 


LOCATION OBJECT 


DIAC 
G1AC 
VIAE 
OLAF 
O1EO 
011 
vibe 
O184 
O1BS 


9416 
43 
48 
48 
48 
SAIS 
9714 
3° 


CODE Line 


414 
4135 
416 
417 
418 
41° 
420 
421 
42a¢ 
423 
424 


425 


HEWLE 


TI-PACKARD: 


SOURCE LINE 


TARE MAG 


Cc) Coleco 1983 Confidential 


TPP ee Se ecS ee Le oCLo LOLOL SoS SS SSeS SSCS STE SSS Se Cee Cee Cee e eC eS eee eo: 
* THIS GUY ASSEMBLES TAPE STATUSBVALT PTOGEHER INTO TO SfATUS BLUCK x 
CED SS oP SoC e SLE OPEC eLe SOS SSeS SECS SSeS SSC e SSS CSCO OS SSS See DS oes 


ASME _ 


STATUS 


LDAA 
LSLA 
LSLA 
DLa 
LSLA 
URAA 
STAA 
RTS 


TAPE _STATUST ,D 


TAPE_STATUSDO, D 
10_STATUS_ BLOCK ,D 


Mon, 


“7 
éf 


Nov 1985, 


1Q:41 


Vek 


14 


Cc @ C¢ C¢ 


FILE: TAPE_MAG: pADAMT 


LOCATION OBJECT 


oik? 
0183 
- 0189 
Q1BA 
VIBE 


Errorgs= 


88 
00 
04 
01 
00 


(0187) 


(0005) 


CODE LINE 


427 
428 
any 
450 
431 

432 
43 
434 
43% 
436 
447 
438 
439 
440 
441 

442 
443 
444 
445 
446 
447 
44% 
449 
450 


HEWLETT-PACKARD: TAPE_HAC (cd) Coleco 1984 Confidential 


SUURCE LINE 


cco DPC eT eC SSS OC OC SL SSS OS SS SSeS SP SCSCCOSS SS SS SS SOS SSS See Se ee SS 

x : x 

* DATA TABLE NAME: % 

x x 

* STAT_MSG_TEL ¥ 

x ‘ x 

* DESCRIPTION: x 

x ; ba 

x THLS TABLE CUNTAINS THE PACKAGE YHAT THIS NODE % 

% SENDS’ fO THE MASTER IN RESPONSE TO THE SfATUS x 

% COMMAND. x 

x x 

* INDEXED BY: % 

x : x 

* A LOOP COUNTER * 

* % Xx 

Me HH HEHE EHH IH HE HEE EH HE EE EE HE EH IEE IE ENE IE EK EE ME EE HM HK 

STAT_LNSG_THL: EQU $ 
FUR USUH+NODE ADDRESS ;STATUS.OR ADDRESS 
FCH QO00H 3MAX MSG LENGTH (1K LOW BYTE) 
FCR Q04H ;MAX MSG LENGTH (HIGH BYTE) 
FCH QO1H STRANSMIT CODE=BYTE_MODE.OR.RESERVED 
FCB VOOH sSTatusS FLAGS . 

STAT_MSG_ LEN: EQU - $-STAT_MSG_TBL 


Non, 


7 Noy 


198%, 


10:31 


P Atk 


14 


©) 


on 


C 


aN. 


Cj 


2) 


FILE: TAPE_MAC:pADAMT 


LING + 


417 
149 
218 
292 

56 

19 
130 
81 

G4 
246 


SYMBOL 


ASHB_STATUS 
B_TEST 

CHK _DRO 
CHD_CUMING_IN 
CNTRL. 
COMMAND_BUFFER 
CONTROL 

COUNT 

CS_BYTE 
CS_CHKO 
CS_CHK_CUMN 
CS_IN 

CURRENT RAM 
CURRENT STATE 
C_READ 
C_REWIND 
C_WRITE 
DATAIN 
DATA_BUFFER 
DATA_FOR_US 
DONT _HAVE_IT 
ERR1 

ERR2 

ERR3 

ERR4 

ERRS 

GCS_1 

GCS_2 

GCS_SA 

GET_CS 
GET_DATA 

GET_ JUNK 
GET_LENH 
GET_LENL 
GO_TO_ APE 
IGNORE _JUNK 


- IO_STATUS_BLOCK 


JUST_RETURN 
LENGTH_HI 
LENGTH_LO 


LENG fH_UF_10_ST 


LETS SEND DATA 
LSSD 

HEM PTR 
MN_ACK 

MN _ CANCEL 
MN_CLR 

MN _NACK 

MN READY 

MN RECEIVE 

MN RESET 

HN SEND 
MN_STATUS 

MTP NIM WRITE 
MTP_FR_LRKEC 
MTP _LYR_TCU 


_-MTP_TR_FRANS 


mirmim ppPrpPrprprirprrprr tterrrtrerietrtrwyTt ete TS TMV V CMS PPrTrmMerprtttrr te p Tt tt 


CROSS REFERENCE TABLE PAGE 1% 


TYPE REFERENCES 


200,232 
154 

214 

278 

107,340 

29,150,213,241,298 

120 . 

204, 229,235, 263, 272,277, 327, 329,370,375, 389,391 
206,501,314, 525, 326,342, 379, 586, 387,594 

242 

245 

332 

30,151,253 

108,112,168,265,282,294,312,333,341 

159 


353 
293,311 

227 , 287 

102 

i52 

177,179 

187,189 

367 , 372,377,384, 346 
238 

208 

344 

350 

356 

125 

124 

123 

121 

122 

285,296 , 348 

2e1 

31,233,424 
110,137,162,169,17%,180, 190,209,255, 266, 290,303,350, 334 
167 

264 

32 

237 

207,392 

288 , 299,321,324 


142 


171 

145 

131% 

164 

139 

135,161,354 

101 

178,184,397 

176,186, 366,371,376, 302,395 


FILE: TAPE_MAG: pADAMT 


LINE¢ 


96 
4a? 
30 
we 
a1 
48 
37 
200 


SYMBOL 


M_SIG 

NM_ACK 
NM_CANCEL 
NM_NACK 
NM_SEND 
NM_STATUS 
NODE_ADDRESS 
NOT_S_#YTES 
NOT_RECELVE 
NOT_RESET 
NOT_SEND 
NO_TAPE 
OK_CS_SENT 
RAM_ STATUS 
RETURN NOW 
SD_1 

SD_2 
SEND_ACK 
SEND_DATA 
SEND_NACK 
SEND_ STATUS 
STATE_TABLE 
STAT _MSG_LEN 
STAT _MSG_ TRL 
$_BADBLK 
S_NOELUCK 
S_NODRIVE 
S_NOTAPE 
S_OK 
TAPE_MAC 
TAPE STATUSO 
TAPE_STATUS1 


CROSS 


TYPE 


Scour rrTrDrPrPTtPDPtetvteT eT TP ST Te Tt ter TPP Pe 


REFERENCE 
REFERENCES 


405 
185 


175 
365 
205 
38,39,40,41,42 
275 
146 
132 
165 
222 
250 


197,199,202 


TABLE PAaGk 16 


14%, 44,45,46,460,49,50,51,52,445 


182,192,211,257,406 


230 
217 
156,172,351 
143 
345 
140 
114 
203 
196,198,450 
249 


221 
33 


34,220,248, 423 
35,216,244,418 


|O ® 


FILE: DUMTP : pADANT HEWLETT~PACKARD: DMIF (cc) Coleco 1965 Confidentiai Mon, 7 Nov 1703, 10:32 Path i 
LOCATION OBJECT CODE LINE SOURCE LINE 

1 *6801*% 

3 NAME *Rev 06 - DILS* 

4 

& De_D_MTP MACRO jHeader Rev. 4 

& .G0T0 Ede pb MTP 

7 . 

8 Project: NiT, 83-101 

y : 

10 = - SE PRE EEE PE ERE GRE HE HE RSE HE ES SE SE HE HE HEHE PH OS GEO BEC 
11 & . &E 
i2 #& pM Tr XO b.. &5 &E 
13. & Bd 
14 «5B RS Se ME RE HE Se HE HE RE OS GEE EE SR EE RS SE HE SH HE BE KE HE HE OE 
15 
16 : Rey History 
17 Rev. Date Name Change 

18 

19 1 esjul DTT MODS FOR TAPE 
20 “0 13jul181i5 DLS Initial Pseudo code 
21 

22 
23 

24 
2 Ede_D_MTP MEND 


vm 


Yo 4 


wee 


C3 


‘Cc @ ce 


FILE: DUMTP:pADANT 


LUCATION OBJECT CODE LIne 


HEWLETT-PACKARD: DUOMIP (ce) Colece 19685 Confidential 


SUURCE LINZ 


Pseudo _code_D_MTP 


Ep_D_MTP MEND 


MACRO 3;Pseudocode macro area 
GOTO Ep_b_LATP 


Mon, 


7 Nov 1943, 


ise 


PAGE 


r 
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FILE: DLUMTPs pADAMT 


LOCATION GkveCrh CODE LINE 


Hk. 


WLETT-PACKARD: DLATP (Cc) Coleco 19845 Confidential 


SOURCE LINE 


ZUIKO IOI EE RIE KK 


xX 
x 
% 
* 
x 
* 
* 
% 
x 
% 
x 
¥ 
x 
* 
x 
% 
% 
x 
x 
¥* 
x 
x 
x 


MUDULE NAME: 


D_MIP 


FUNCTIONS); 


1. FO DECLARE THE DATA AREA "NIM_BLULK. " 
2. TO DECLARE THE D1_MODE_WORD. 


NOTES: 

1. NIM BLOCK IS USED AS THE INTERFACE BETWEEN THE 
MEDIUM ACCESS CONTROLLER AND THE RESIDENT APPLICATIUN 
PROGRAM. 


2. THE INSTALLER IS RESPONSIBLE FOR LOCATING THIS DATA 
MODULE SO THAT THE LAST BYTE ENDS AT LOCATIUN 127 (DEC), 


JORGE IGE OU EIEIO XOX IE 


x 
* 
% 
x 
x 
x 
x 
x 
Bg 
x 
xX 
x 
x 
* 
x 
x 
xX 
x 
* 
*% 
x 
® 
x 


Mon, 


7 Nov 


190%, 


10:32 


PAGE 
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:cC @ CC 


FILE: D_MTP:pADAMT 
LOCATION OBJECT CODE LINE 


ou? 


HEWLETT-~PACKAKD: DMT 


* SOURCE LINE 


(a) 


Coleco 1993 Confidential 


Mon, 


7 Nov 


198%, 


10:32 


PAGE 


4 


Ara? 


FILE: DUMTP: pADAMT 


LOCATION OBJECT 


0000 


0000 
d001 


CODE LINE 


i 
62 
63 
64 
fo kw) 
66 
&? 
68 
&yY 
7v 
71 


HEWLETT-PACKARD: DONTP 
SUURCE LINE 


GLE 
GLE 
GLE 
GLE 
GLE 
GLB 
GLE 
GLB 
GLH 


GLH 
GLE 
GLE 
GLB 


DATA 
D_MTP: 


Cc) Coleco 1983 Confidential 


CURRENT GIATE 
DUATP 

D1 _MUDE WORD 
RIM_ BLOCK 
CNFG WORD 
A_SIG 

A_DATA 

MH_SIiG 

M_DATA 


COUNT 
NODE_ADDRESS 
CS_WGRD 
DATA_BUFFER 


KEK KKAKKKKKKKKKKKKKKKKKKAK KK KRKEK KEK KK EK KEKKEREKRKKKEKK EK EM KX KEKE KEK 


% 
DATA WORD: 


D1_MODE_WORD 


FUNCTION: 


KM KKK KK KM HK 


x 


KKK GREK GR KK RK KKK KK RK MH KEKE KEK HK RK EKER KKK KKK KEE KK EK KKK KK 


CURRENT _STATE RMB 


2 D1_MODE WORD RME 


CONTAINS THE STATE OF SEQUENCER PROCESSING 


1 
1 


x 
% 
* 
* 
* 
* 
x 
* 
¥* 
x 
* 
¥ 


Mon, 


7 Nov 


193, 


t0i3e 


PAGE 


bss 
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C3 


FILK: DMTP:paAbpaMT 


LUCATION OBJECT 


g002 
oud4 


(0008) 


CODE LINE 


94 


9S 


tet etree te eete ete etr etree terete ete eget 


HEWLETT-PACKARD: DOMIP (ce) Coleco 199% Confidential 


SUURCE LINE 


x 

COUNT RAE 2 

CS_ WORD RMB 1 

NODE _ADDRESS EQU g 
INCLUDE T_LNIM 


* x 
* HIERARCHY CHART * 
x OF x 
* MEDIUM ALCESS CONTROLLER * 
¥ (MAC) % 
ty * 
& x 
x *% 
% {MAC ) * 
* | ¥ 
x | * 
% me a te “He oe eee eee aot eo to ese + x 
* CFR (NIM) (ACM) % 
* i L ' % 
% s aaieea Remteaaeh 2 i + x 
* €TRANS) ¢REC) 1 (SEQ) x 
x t | % 
% femme a Hee ee a + | % 
% i ! 1 * 
x CWRITE> (READ) | x 
% | * 
x | x 
* to Fm oe er ee + % 
x | f % 
* CEVENT_ PROC) {RESP > 
* x 
x x 


FER III URE IOI IE EIU IEE IEE IE 


Mon, 


7 Nov 


19H3, 


10: 4% 


PAGE 
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Ay 
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ER, SE AD 


es 
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FILE: DLMTPtpabaMT 


LOCATION OBJECT CODE LINE 


Settee eee eee eee eee etgege et teegeeeeee 


HEWLETT-PACKARD: DLMTP (cd VColeco 1°05 Confidential 


SUURCE LINE 


JOKE ERE IIE KUO EOE ORE IO EU EX UIE OR EE IG 


xX 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
% 
* 
x 
* 
x 
x 
% 
x 
x 
% 
* 
% 
% 
* 
% 
* 
x 
x 


seve ret cont saree eit Sa vier tee HOG Seth Shee HHO SHES Hemp saw tet Sune FORD Fn Onin One see nee Rem arnt ome ewse Somme 


NAME: 
I_NIM 


FUNCTION: 


TO DEFINE THE INTERFACE BETWEEN THE MAC AND APPLICATION 
WITHIN A NODE, EACH AND EVERY NUDE (WHERE A PRINTER 

OR KEYBOARD IS AN EXAMPLE OF A NODE) CONSISTS OF TWO 
PARTS: TAN APPLICATION PART, I.E., FHE SOFTWARE THAT 
HANDLES THE NODE’S REASON FOR EXISTENCE, AND 2) A MAC 
PART, I.E., THE SOFTWARE THAT INTERFACES TO THE NETWORK. 


DESCRIPTION: 


A BLOCK OF MEMORY WILL-BE SHARED BY [THE MAC AND APP, 
WHEREIN DATA AND CONTROL SIGNALS WILL BE PASSED BACK 
AND FURTH BETWEEN THE TWO, A DIAGRAM OF THIS BLUCK 
(REFERRED 10 AS NIM_KBLOCK)- FOLLOWS: 


NIM_ BLOCK 
tome ee ene + 
1 M_S1G 1 ACR/RESET), MCW); 
aa elt + 
| M_DATA 1 ACR/RESET), MCW); 
She ee mom + 


HEH HK KKH HH HH KKH HH HHH EH EK KEK KKK KKK KKK KKK KEK KEK KERN 


x 
x 
x 
x 
x 
x 
% 
*% 
* 
x 
x 
x 
% 
x 
% 
x 
® 
x 
x 
% 
x 
xX 
x 
x 
x 
x 
x 
* 
x 


Mon, 


7 Nov 1983, 


10:43 
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FILE: D MTP: pADAMT 
LOCATION OBJECT CODE LINE 


tee eee tee ege et ete ererer tee ee 


HEWLETT-PACKARD: DLMTP (> Coleco 1904 Uonfidential 
SOURCE LINE 


SPE eDe rer ee eft eceeeeceereererere eer re rer eT tec rer eee cr ereerce res 


x x% 
* DATA ELEMENT DEFINITIONS: % 
xX x 
x x 
x M_SIG: x 
Ket es ater seve ; x 
x U- NO SIGNAL CIDLED. x 
x 170- A COMMAND IS WALTING FOR THE APPLICATION 
x 285- RESET x 
* % 
x x 
% M_DATA: * 
He ee ere cee ee x 
x * 
x 11- READ FRUM TAPE | * 
* 1l2- WRITE TG TAPE * 
x “R‘-REWIND THE TAPE TO THE LEADER % 
x * 
x % 
* NOTES: * 
% 1. Mi MAC SIDE OF NUDE. x 
* x 
x 


SRKREKKKRKKKAKAKHKKRKKEKK ARK AKER AAR KK KKH KEK KRHK AER KER KHKKAKKKAK 


Mon, 


7 Nov 1°82, 


10:33 
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FILE: DUMTP i pADAMT 


LOCATION UBJECT CODE LINE 


0005 
0005 
00603 
0005 


0005 
0006 
0006 


Errors. 0 


$e teeteeeeet te 


+ 


102 
103 


os 
o 
> 


108 
106 
107 
108 
109 
110 
111 


HEWLETT-PACKARD: DLMTP (ce) Coleco 1965 Confidential 


SUURLE LIWE 


HEH ER IEEE IE IIE IIE IE OER ICRA IER: RKO XIE EG IE 
x x 
x NUTES TO INSTALLER OF TH1S MAC/APP: % 
¥% : x 
-* 1, THE APP IS RESPONSIBLE FOR INLVTLALIZING ALL OF RAM, x 
x x 
* 2, THE APP MUST INITIALIZE THE CUNTROL AND STATUS REG AT x 
x LUCATION 0011. x 
x % 
® 3, THE DI_MODE_WURD MUST BE SET TO ZERO AT PUIR UP BY THE x 
x APP, % 
x x 
* 4, THE NIM_BLOLK WILL END AT ADDR 127. x 
x * x 
PTET TOTO TOCT OCC CTC CCC TTPO C CLIT TTP PST TTT S SCT STS Se SL SSeS SSL 2s 
NIM_BLOCK : 
CNFG_WORD RMB 0 
A_SIG _ RMB 0 
A_DATA RMB 0 
M_SIG RMH 1 
M_DATA RMB 1 ; 

COMN 
DATA_BUFFER RME 1024 


Mon, 


7 Noy 


Lys , 


10;333 
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y 
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FILE: DUMTP i pAvANT 


LINE # 


105 
104 
10% 
97 
783 
71 
92 
111 
va 
108 
107 
102 
99 


SYMBUL 


A_DATA 

A SIG 
CNFG_WORD 
COUNT 
CS_WORD 
CURRENT _STATE 
D1_MODE_WORD 
DATA_BUFFER 
D_WTP 

M_DATA 

M_SIG 
NIM_BLUCK 
NODE _ADDRESS 


CROSS REFERENCE TALE 


TYPE 


Doerr Orr crus 


67 
&6 
63 
71 
73 
1 
63 
74 
62 
69 
68 
64 
72 


REFERENCES 


PSE 


10 


HEWLETT-PACKARD: MIPLTR_LREC (ce) Coleco 1993 Confidential tion, 7 Nov 


SOURCE LINE 


*6801% 
NAME *Rev 04 - RRD* 
De_MTFP_TRLREC MACRO jsHeader Rev. 4 
.GUTO Ede MPP_ PR OREC 
Project: NET, 83-101 
$58 SG He He HE HE GE RE He HE HE HE He BE Us HE BS RG Hs Se BE UE BE Bs Oe GE TE Ee He 
css J #8 
Bt MTP OTR OR ESC : YL... $3 BE 


BS RE 
BSS BE RE RE ME AE KE SE HE HE SE HE OS Ee RE HE EE et He ES SE BE BS SS SS SE OS ES 
) 
Rev History 


Rev, Date Name Change 

4 20 juilissa RPD added read of control/status to reset RDORF 
3 20 jul7S5p RPD _renoved LIST directives 

2 1Yjulei04 Ji Printer MAU started, 

1 13jul7S0a RPD converted pseudo code to 4801 code 

0 12JUL1305 DLS Initial Pseudo code 


24 Ede_MIP_TR_REC MEND 


FILE: MTP_TR RE: pADANT 

C LUCATION OBJECT CODE LINE 

; 4 

C 3 

4 

S 5 

C b 

7 

: 8 

S ° 

10 

7 11 

C 12 

13 

14 

‘< 15 

16 

17 

C 18 

19 

_ 20 

Ca a4 

22 

Z 23 
a 
ibs 
‘ee 
CS 
c 
C 
(s 
© 
es 
C 
e 


198%, 


10534 


PAGE 


1 


me CS 


CO @ CC C¢ 


FILE: MTP_TR_RE:pADANT 
LOCATION OBJECT CODE LINE 


26 
27 
2y 
2? 
39 
31 


HEWLETT-PACKARD: MYTP_LTR_UREC 


SOURCE LINE 


tc) Coleco 19% Confidential 


HHH HEH EE HE HE EE IEE I IE EE EE HE HEI EE I A EI IE IIE RIE EG EE EE EG 


x 
x 
x 
% 
x 
x 
x 
% 
x 
* 
x 
* 
> 4 
* 
* 
% 
x 
# 
* 
% 
x 
* 
% 
* 
% 
% 
x 
& 
x 
% 
% 
x 
x 


MODULE NAME: 
MTP_TR_REC 
INPUTS: 


NET_LHYTE_IN (LOCATION 12) 
D1_MUDE_WORD 


FUNCT XONCS) 
1, (0 GET A BYTE FROM THE NETWORK. 
OUTPUTS: ; 
NET_BYTE_IN (REG_AD 
TOKEN + CARRY SET = BYTE FOR THIS NODE. 
CARRY CLR = NOT FOR THIS NODE. 
CALLS: 
NONE. 
CALLED BY: 


MTP_ACH_SEQ 


NOTES: 


NONE. 


JRO IE EX IB EE IEE OS IEE 


. 


x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
x 
% 
% 
% 
* 
* 
x 
x 
x 
x 
% 
* 
% 
x 
% 
x 
* 
% 
x 
% 
x 
x 


Mon, 
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FILE: MTP_TR_KE:pADAMT 
LOCATION OBJECT CODE LINE 


61 


HEWLETT-PACKARD: MTP_LTR REC (Cc) Coleco 1983 Confidential 


x 
x 
x 
x 
% 
¥ 
x 
¥ 
x 
x 
x 
¥ 
x 
x 
x 
x 
” 
x 
x 
¥ 
% 
* 
% 


ENDIF; 


SOURCE LINE 


EK NEE HG EI HE IE I EI IE IIE I AE I IEE RE I RE EC EE IE IE GE EE 
bd x / 

oS % 
64 x 
6% | 
66 * 


PSEUDG CODE: 
-MTP_TR_REC: 
CARRY=SET; 


REG _A=MEM(12); 
IF D1i_MODE_WURD<> CONTROL 


THEN 


GOTO REC_RTS;  /*® RECEIVING DATA MODE */ 


GAVE_REG_A = REG_A; 
REG_A = $UF,AND.REG_A; /* LOWER HALF = ADDR */ 
IF NODE_ADDR (> REG_A 
THEN 

CARRY=0; 

GOTG REC_RTS; 
ENDIF; 
REG_A=$F0.AND.SAVE_REG_A;/* UPPER HALF = CMND x/ 
SHIFT REG_A [0 LOWER NIBBLE; 


REC_RTS: RETURN} : 


JOG GEHRIG OE EE ER IEC EK EEE KEK EK 


% 
x 
* 
% 
x 
x 

¥ 
% 

* 
x 

x 
% 

x 
¥ 
* 
¥ 
* 
* 
*% 
% 
® 
¥% 
*% 
* 


Mon, 


7 Nov 1955, 
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FILE: MTP_fR_RE:pADANT 


LUCATION ORJECT CODE LINE 


0000) 
{0002> 


<0001> 
(0003) 


<0004> 
{0006 


(0005) — 
(0007) 


(0008) 
CH007> 
CQ0GA> 
C0008) 
€g00c> 
(0O00D> 
(Q00E> 


COU0F> 
°¢€0010) 
€UO11> 
¢0012> 
{0013> 


CO014)> 


(OU0F) 
(9008) 
<00FO> 


(0040) 


v7 
+ 


HHP tee ete tet et ee terete eee eect 


HEWLEP P<PALCKARD: MIP _PR_REL 


SOURCE LINE 


P1_DIR 
P1_DATA 


we VO Ne 


P2_DIR 
P2_DATA 


P3_DIR 
P3_DATA 


P4_DIR 
P4 DATA 


T_CNTLSTAT 
T_CNTRHGH 
T_CNTRLOW 
T_OCMPHGH 
T_OCMPLOW 
T_ICAPHGH 
T_ICAPLOW 
P3_CNTLSTAT 
SCI_RM 
SCI_TR_CS 
SCI_RX 
SCI_TX 
RAM_CNTL 


$ 
? 
2 
? 


ADDR_MASK 
NODE. ADDR 
CHND_MASK 


ORFE 


local equates 


(c) Ualeco 


INCLUDE PGO_EQU 


EQu 
EWU 


EQU 


EAU 


EQU 
EWU 


EQU 
EW 


EQU 
EQU 
EQU 
EQU 
E.QU 
EQU 
EGU 
EQU 
EQU 
EQU 
EQU 
EWU 
EQu 


EQU 
EQU 
E.QU 
EWU 


EXT 


6801 internal register equates (page 0) 


000H 
vO0O2H 


QO1H 
UOSH 


004H 
006H 


O05H 
007H 


008H 
009H 
Q0AH 
QOH 
00CH 
QODH 
OOEH- 
QOFH 
010H 
011H 
012H 
015H 


014H 


OOFH 
008H 
OF OH 
010000008 


CURKENT STATE 


1YBs Confidential Mon, 7 Nov 1983, 16:34 PAGE 


sport 1 data direction register 
sport 1 data register 


jport 2 data direction register 
sport 2 data register 

sport 3 data direction register 
sport 3 data register 

sport 4 data direction register 
jport 4 data register ‘ 


ptimer control and status register 
;counter high byte 

;counter low byte 

poutput compare register high byte 
poutput compare register low byte 

sinput capture register high byte 
;input capture register low byte 


spert 3 control and status register 

jrate and mode control register 
;transmit/receive control and status register 
jreceive data register 

stransmit data register 


;RAM control register 


os, 


O 


es 
> 


ae, 


U 


FILE: MTP_TR_RKE:pADAMT 


LOCATION UBJEUT CODE LINE 


6000 
0ou0 
vovl 
0003 


000% 
6007 


0009 
0009 


O00A 


O08 
000B 
vo00oDd 
OOF 
0010 
0012 
g014 
0016 


Errors= 


0D 
b611 
P6128 


C440 
2702 


100 
101 
1a2 
10% 
1u4 
105 
106 
107 
103 
109 
118 
111 
112 


113 


114 
115 
116 
117 


HEWLETT-PACKARD: 


MiPLIR REC (cd Coleco 


SOURCE LINE 


HTP_TR_RECI- 


BREAK _ORFE: 


NO_ORFE: 


ELSE _NUTADDR: 


ENDIF _ADDR: 
ENDIF_CNTRL: 


PROG 
GLE 


SEC 
LDAB 
LDAA 


ANDEH 
BEQ 


GLE 


CLC 


RTS 


LDA 
BNE 
TAH 
ANDA 
CMPA 
BNE 
TRA 


APP _TR REC 


SCI_TR_CS,D 


SCI_RX,D 


#URFE 
NO_URFE 


BREAK _ORFE 


CURRENT_STATE,D 
ENDIF _CNTRL 
#ADDR_MASK 


#NUDE_ADDR 
ELSE_NOTADDR 


ENDIF _ADDR 


1785 Confidential Mon, 7% Nov 1965, 10535 


}1 TOKEN = BYTE FOR THIS NUDE 


;1 NET_BYTE_IN = SCI_RX 
31 IF Di_MUDE_WORD = CONTROL 


; BAD DATA 


3} get D1_MUDE _ WORD 

32 SAVE NEIL = NET _BYTE_IN 

je ADDRESS = NET_LBYTE_IN . AND, ADDR_MASK 
je IF ADDRESS = NODE _ADDR 


33 NETLHYTE_IN = SAVE_NHI .AND. CMND_MASK 
32 ELSE 

33 TUKEN = BYTE NUT FOR THIS NODE 

32 ENDIF 

31 ENDIF 


PAGE ws 


7® NOV REC 
7% LOWER | 


7® UPPER } 


Cy GD SS a; - as AG) 


CGC O OD © 


Gc © 


Cc @ CC CC © 


FILE: MTP_TR_RE:pADAM} 


LING 


92 
112 
94 
oo 
128 
130 
131 
102 
93 
117 
9& 


SYMBUL 


ADDR_MASK 
BREAK _URFE 
CMND_MASK 
CURRENT _STATE 
ELSE_NOTADDR 
ENDIF _ADDR 
ENDIF _CNIRL 
MTP_TR_REC 
NODE_ADDR 
NO_ORFE 

ORFE 

SCI_RX 
SCI_TR_US 


CROSS REFERENCE TABLE. 


fYPE 


rpP TD DUT CMP tr 


REFERENCES 


PAGE 


6 


oO 


2) 


C: 
Cu 


Ci 


C: 


FILE; MTP_TR_U1K:pADAMNT 


LOCATION OBJECT CODE LINE 


19 
20 
21 
22 
23 


HEWLETT-PACKARD: MYP_LTR TRANS Ce) Coleco 1985 Confidential Mon, 


SUURCE LINE 


*6801% 
NAME “Rey 03 - kPD* 


De_MTP_TR_LTRANS MACRO jHeader Rev, 4 
GOTO Ede MTP LTR TRANS 


Project: NET,. 83-101 


aS SE He Me ME HE He GE te HE Oe Hee He He See HR OE HE He HE Ue OG Hs NE EE te HE 8 


st 8 
st MTP OTRO TRANS WP 0... $3 $6 
Fe #8 
Sib SE HE HE SE HE RE HE HE EE AE WE OE 0K HE HE HE HE OG Et 


Rey History 


Rev. Date Name Change 

3 20 jul740p RPD removed LIST directives 

2 IPjule20s3 Jim Printer MAC started. 

1 13 julBbssa RPD converted pseudo code to 6801 code 
0 12JUL1236 DLS Initial Pseudo code 


Ede_MTP_TR_TRANS MEND 


7 Noy 


198%, 


10:35 


PAGE 


st 


2 


aoe 


FILE: MTP LTR TR: pADAMT 
LOCATION OBJECT CODE LINE 


es 
26 
27 
23 
2y 
30 
31 
32 
35 
54 
iw) 
36 
37 
Sy 
39 
40 
41 
42 
4% 
44 
4S 
46 


HEWLETT-PACKARD: MIP_LTR TRANS (a) 


SUURCE LINE 


Colece 1964 Confidential 


Tee eC CTC Cee TP eee CPC TCC CEP ere eee CPC CCC CCT CCPC CCC SCC SOS ESS SL STL ee! 


x 
x 
x 
x 
x 
x 
x 
x 
x 
*% 
x 
* 
x 
xX 
x 
x 
% 
x 
% 
x 
x 
*% 
% 
¥ 
x 
% 
* 
x 
x 
x 
x 


MUDULE NAME: 
MTP_TR_TRANS 
INPUTS: 
NET_BYTE_OUT (REG_A) 
FUNCTION(S) : 
1. 10 SEND A BYTE OUT OVER 
OUTPUTS; 
NET_BYTE_OUT (LOCATION 1%) 
CALLS: 
NONE. 
CALLED BY: 


MTP_ACM_SEQ 
MItP_NIM_READ 


NOTES: 


NUNE, 


THE NETWORK, 


HHH HE HE HE IE HE HE IE HE HE HCE HE HEE EE IE EHR MM KK KE KKKKEKKEK KR 


x 
%& 
xX 
xX 
x 
x 
x 
% 
* 
x 
% 
x 
x 
x 
x 
x 
* 
xX 
* 
x 
x 
* 
S 
x 
% 
x 
* 
x 
x 
x 


KKK K KK KKH HK MK KK EGER K KEKE KM KEKE RE KEKE RH KEK EK MK MEK KKK KK EK KERK 


% 
* 
x 
x 
x 
xX 
x 
x 
x 
x 
xX 
x 
x 
x 
x 


PSEUDO CODE: 
MIP_TR_TRANS: 


REPEAT UNTIL_SET: 


IF MEMC11).5=0 THEN GOTO REPEAT _UNTIL_ SET; 


ENDIF 5 
MEMC LS) =REG_A} 


RETURN; 


L 


TPC CC CCC CCCUCCC COSCO CCST CCC CS CLC SS eee eee Pe Ce CeCe SSS eee Se 2 


x 
xX 
x 
* 
x 
% 
x 
xX 
x 
x 
x 
x 
x 
xX 
x 


Mon, 


vy 


é 


Noy 


19s, 


10335 


PAGE 


OQ 


FILE: MTP_TR_1R:pADAMT 


LOCATION OfJECT CODE LINE 


(0000) 
(v002> 


(0001) 
(0003> 


(0004) 
<v006) 


(0005). 
C0007) 


. (0008) 
(u009)> 
CQQ0A> 
(U00B) 
€O00C> 
«vO0D> 
CQQ0E> 


CO00F)> 
(0010) 
C0011) 
(0012) 
(0013) 


(0014) 


(0020) 


“7 
é 


+e ete ee ee ete eee eer etree ee ege eee tte 


78 


HEWLETT-PACKARD: 


we 


3 63901 internal register equates (page 0) 


? 


*SUURLE LINE 


P1_DIR 
P1_DAIA 


P2_DIR 
P2_DATA 


P3_DIR 
P3_DATA 


P4_DIK 
P4 DATA 


T_CNTLSTAT 
T_CNTRHGH 
T_CNTRLOW 
T_OCMPHGH 
T_OCMPLOW 
T_ICAPHGH 
T_ICAPLOW 


P3_CNILSTAT 


SCI_RM 
SCI_TR_CS 
SCI_RX 
SCI_ TX 


RAM_CNTL 


2 
> 
’ 
> 
; 
1 


local equates 


DRE_MASK 


MTP OTR TRANS 


INCLUDE PGO_LEWU 


EWU 
EU 


EGU 
EWU 


EWU 
EWU 


EQU 
EAU 


EQU 
EWU 
EQU 
EQU 
EQu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


000H 
V02H 


QO1H 
VOSH 


004H 
V06H 


003H 
007H 


OOGH 
OO9H 
OOAH 
OOBH 
00CH 
QODH 
OOEH 


OOFH 


010H 
Q11H 
012H 
014H 


014H 


(c) Coleco 


190s Confidential 


sport 
sport 


;port 
sport 


sport 
sport 


pport 
sport 


1 
1 


fe fe 


b> b> & 


data 
data 


data 
data 


data 
data 


data 
data 


direction 
register 


direction 
register 


direction 
register 


direction 
register 


Mon, 7 Nov 1903, 10:54 PASE. 


register 


register 


register 


register 


stimer control and status register 
jcounter high byte 
jcounter low byte 

soutput compare register high byte 
poutput compare register low byte 

pinput capture register high byte 

jinput capture register low byte 


sport 3 control and. status register 


jrate and mode control register 
transmit/receive control and status register 
jreceive data register — 


;transmit data register 


sRAM control register 


;"transmit_data_register_empty” mask 


oS 


eae ee 


CO 


C 


FILE: MTP_TR_TR:pADAMT 


LOCATION OBJECT 


0000 
0000 
v001 
0004 
uv004 
0005 


0007 
0009 
VUO0B 
o00D 
OOOF 
00190 


0012 


0012 
0015 
v016 
00146 
0017 


Errors= 


aC 
CE0U16 


0? 
2708 


D611 
c4z0 
QF? 
9713 
ac 


2004 


RDO000 


oD 


39 


CODE LINE 


HEWLETT-PACKARD: MITP_LTR_ TRANG 


SUURCE LINE 


83 


v4 
8S 
B& 
QB? 


MTP_TR_1TRANS: 


REPEAT: 


HAVE_TDRE_ERR! 
; 


END_TR1 


(c) Coleca 19445 Confidential Mon, 7 Nov 1964, 10:46 
PROG 
GLE MIP_fR_TRANS 
PSHX 3 SAVE X JUST IN CASE 
Lx #C2X160)/ C54 5454249) ; ALLUW 2 BYTE TIMES 
37 31 REPEAT 
DEX 33 3 TIME UP 7??? 
Bi. HAVE _TDRE_ERR a) 3 YUP 
32 TDRE = SCL_TR_CS .AND. TDRE_MASK 
LAK SCL TR CS,D 33 : get the control/status byte 
ANDB #1) DRE MASK je } mask in the TDRE bit 
BEQ REPEAT 33 31 UNTIL TDRE = FRUE 
STAA SCT_TX,D 31 SCILIX = NEXT_LBYTE_OUT 
CLC 
BRA END_TR 


CLEAN UP UART PORTS 


EXT CLEAN_UART_HW 
JSR CLEAN_UART_Hw 
SEC 
PULX 
RTS 


PAGE 


4 


Ce Oe 


‘FILE: MTP_LTR_1TR: pADAMT 


LING # 


107 
113 
104 
85 
BY 


bo 


SYMBUL. 


CLEAN _UART_HW 
END_TR 
HAVE_TDRE_ERR 
MTP_TR_ TRANS 
REPEAT 
SCI_TR_CS 
SCI_TX 
TDRE_MASK 


CROSS REFERENCE TABLE PAGE 
TYPE REFERENCES 


DPPtt cur 


109 
102 
91 
B4 
76 
94 
93 
9S 


2 


C © 


FILE: MTP_TR TC: pAbANtT 


LOCATION OBJECT CODE LINE 


HEWLETT-PACKARD: MIPLTR_ TCU (Cc) Coleco 19645 Confidential 


SUURGE LINE 


*5801%* 
NAME “Rev 01 - KRD* 
De_MTP_TR TCU MACRO sHeader Kev, 4 
.LOTO Ede MFP _ FR TCU 

Project: NET, 85-101 
SSG SG He He HE HS HE HE HS HS EE RE HE SS Gs OS HE RE OE FR OE OS Ge HS HE HE OE HE BE HE 
ES 3 oe 
BJ MrP OTR OO Tau RE WD BS 
ast Bed 
SSS GE BE We ME HE RE RE GS HE EA HG HE EH He TA EE OR He He HG TE OE Us HO OH 

Rey History 

Rev. Date Name Change 

1 20 julBo0Up RPD created from MIP file 


0 19 julS3sp RPD Initial Pseudo code and code 


Ede _MTP_TR_TCU MEND 


Non, 


Y Nov 1945, 


10:47 


PAG 


1 


Oe > oe. YOO. oe 


oD 


QO Oo 


FILE: MTP_TR_1C:pADAMT 
LOCATION OBJECT CODE LINE 


23 
24 
By 
26 
27 
28 
29 
30 
31 
32 
is 
34 
35 
$6 
37 
$83 
39 
40 
Al 


HEWLETT-PACKARD: MTP_LTR TCU ce) Coleco 1%63 Confidential 
SOURCE LINE i. 

ZEEE IEEE EX EG 
MODULE NAME: 

MTPLTR_TCU (transmit clean up) 
INPUTS: 

none 
FUNCTION(S): 

1. Clears the “receive data register full" flag of the 
6801 SCI after a transmission sequence (1 or more 
bytes). The flag is set ag a result of sending a byte 
out and receiving the same byte in on the common NET 
line used for sending and receiving. 

OUTPUTS: 
SCI control/status register bit 7 = 0 
CALLS: 
none 


CALLED BY:- 


hTP_ACM_R 
Cali routines calling MIP_TR_TRANS) 


NOTES: 
1 - This sequence follows the procedure described in 
hardware manuals for clearing the flag. Which is: 
step 1) read the SCI control status register 
step 2) read the SUI receive data register 
2 - The MAC modules are responsible for calling this 
module after doing a transmit function to avoid 
reading itself when other data is expected. 


MR KK KR KK KK KK KK OK OK KK KK KOK KK KK KOK KK KK OK OK KK 


JOH HOI IEEE EUR HORE OK IE EEE EK I 


x 


x 
x 
x 
x 
x 
% 
* 
*% 
x 
* 
x 
x 
% 
* 
x 
*« 
xX 
* 
x 
x 
x 
% 
x 
* 
x 
¥ 
x 
* 
* 
xX 
P 4 
* 
x% 
% 
x 
*% 
x 
¥ 
x 
*% 


Mon, 


7 Noy 


1983, 


10:37 


PAGE 


‘oe 


Cc 


C 


Cc @ C 


FILE: MIP_ER_ 1: papaMt 


LOCATION OBJECT CODE LINK 


0000) 
<0002> 


(0001) 
«0005 


€0004) 
C0006) 


-¢0005) 
<0007> 


(0008) 
<v009)> 
C000A> 
<VU0B) 
¢000C> 
<v00D> 
C000E)> 


C000F) 
(0010) 
0011) 
(0012) 
¢0013) 


(0014) 
0020) 


vo000 
0000 3C 


0001 CEOQ022 


HEWLETT-PACKARD: MYPLPRLTUU (cd Loleco 1983 Confidential Mom, 7 Nov ted, 10:47 


"SOURCE LINE 


HEI IE HG IE IE HEE IE IE IE IE I III IE SEE II EERE XE IESE EKER EKER 


x 
* PSEUDU CODE: x 
x x 
% begin x 
x wait for TDRE = 1 x 
* clear RDRF C€from 2nd to the last byte} * 
% wait for RDRF = 1 ‘ x 
x read in the received byte (from very last byte) x 
x end x 
* x 
OO IO IIE HIE UIE I UO IK OK KK 
INCLUDE PGO_EQU 
} 
3} 6801 internal register equates (page 0) 
3 
P1i_DIk EQU O00H ' sport 1 data direction register 
P1_DATA EWQU 002H - sport 1 data register 
P2_DIR EQU OO01H sport 2 data direction register 
P2_DATA EQU 004H jport 2 data register 
P3_DIR EQU 004H : sport 3 data direction register 
P3_DATA EQU VO&6H jport 3 data register 
P4_DIR - EQU 005H sport 4 data direction register 
P4 DATA EQU 007H yport 4 data register 
T_CNTLSTAT EQU 006H jtimer control and status register 
T_CNTRHGH EQU VO?H ycounter high byte 
T_CNTRLOW EQU O0AH ;counter low byte 
T_OCHPHGH EQU OOH poutput compare register high byte 


T_OCMPLOW EQU 00CH poutput compare register low byte 


T_LICAPHGH EU VODH jinput capture register high byte 
T_ITCAPLOW EQU Q0KH pinput capture register low byte 
P3_CNILSTAT EQU O0FH . pport 3 control and status register 
SCI_RM EQU 010H srate and mode control register 
SCIRUS EMU V1ilH ;transmit/receive control and status register 
SCT _RX EQU OigH preceive data register 
SCTI_E EWU U1SH stransmit data register 
RAN_CNTL EGU 014H ;MAM Control register 
3 
3 local equate 
} 
TDRE_NASK EGU 020H 

PROG 

GLE MIP PR TCU 
MTP_TR_ TCU; 

PSSHX 

Lx SCBKLSUI/ CHt3+ 54243) ; ALLGW 3 BYTE TIMES 


PAGE 


3 


. 


‘) 


~~ 


FILE: MTP_UTR_ UTC: paADAM) 


LOCATION 
0004 
v004a 
0005 
0007 
vu09 
0008 
o00D 
OOGF 
OOOF 
0010 


0012 
v014 


0016 
0018 
v019 
Q01A 
“po1A 
oo1c 


vO01D 


OO1E 
OO1E 
0020 


0022 
024 


0026 
VO28 


ubeAa 


Errors= 


ORJECT 


0° 
2713 


Dail 
C420 
e7F 7 
Dét2 
09 

2708 


Doli 
2AF»? 


Déle 
38 
39 


BDV2 
38 


39 


D611 
D6t2 


Cé6ik 
D711 


C600 
D700 


39 


CODE LINE 


SOURCE LINE 


REPEAT: 


REPEAT1: 


TDRE_ERR: 


? 


CLEAN_UART_HW: 


HEWLETT-PACKARD: MYPLITR TCU (Ce) Coleco 1964 Confidential e 


TDRE_ERR 
SCI_TR_CS,D 
#(DRE_MASK 
REPEAT 


SCI_RX,D 


TDRE_ERR 


SCI_TR_CS,D 
REPEATS 


SCI_RX,D 


CLEAN UP UART PORTS 


BSR 
PULX 
RTS 
GLH 
LDAB 
LDA 


LDA 
STA 


EX? 


LDA 
STAR 


RTS 


CLEAN _UART_HW 


CLEAN_UART_HW 
011H,D 
012H,D 


#000110118 
011H,D 


CUKRENT STATE 


¥0 


CURRENT _STATE,D 


Mon, Y Nov 15845, 10:37 


sreset RDRF from dnd to last byte 


31 WAIT FOR RECETVE DATA REGISTER FULL 
31 EMPTY RECELVED DATA REGISTER AND CLEAR RDRF RLY 


jreset RDRE from last byte 


PAGE 


a 


FILE: MTP_TR_1G1pADAMT 


LINE + 


124 
131 
86 
91 
101 


114 
82 


SYMBUL 


CLEAN _UART_HW 
CURRENT STATE 
MTP_TR_TCU 
REPEAT 
REPEATI 
SCI_RX 
SCI_TR_CS 
TDRE_ERR 
TDRE_MASK 


CROSS REFERENCE TABLE | PAGE 

TYPE REFERENLES 

P 116,122 

E 134 

Pp 8S 

P 99 

P 106 

A 99,108 

A 95,105 

P 93,103 

A %6 


% 


os 


[> © 


.. 


Cc @c¢ 


FILE: MTP_NIN_W: pADAMT 


LOCATION OBJECT CODE LINE 


SNMON GU Sb OH 


ob ee et 
To 


poh th pt 
che D> Oi 


re aos 
CoN 


20 


ix’) 
pore 


22 


HEWLETT-PACKARD: MIPLNIM_ WRITE (cd) Coleco 1964 Confidential Mon, 7 Nov 1983, 


SUURLCE LINE 


*6801% 
NANE “Rev 02 - DLS* 
De_HTP_NIM_WRITE MACRO jHeader Rev. 4 
»GO0TO Ede _AfP NIM WRITE 

Project: NET, 84-101 
SS GE KE GE WE HE RE RE HG HS HE KE Be OE ES EP 8S SE BO HE 
EJ ee 
ot MTP LONE PWR OTC REE Du. $3 3 
Es J 8 
SE RE RE ME WE HE HE HE HG HE HS SE HE HE He UE UE RE He 8 HE GE OS HE SE EE RE EE Se 

Rev History 

Rev. Date Name Change 

2 15 jul2130 DLS FLIPPED OVFL INTERFACE 

1 13 juli3avp RPD converted pseudo code to 6801 code 


0 12JUL1356 DLS Initial Pseudo code 


Ede_MTP_NIM_WRIYE MEND 


10: St 


PASE 


1 


FILE: MYP_NIM_WipADANT HEWLETT-PACKARD: MTP_NIM_WRIIE (Cc) Coleco 198% Confidential hon, ¥% Nov 1983, 10:36 PALE 
KO LOCATION UBJECT CODE LINE SUURLE LINE 
O . 24 XG UIUIGICEERIE IOI 
2 25 * x 
26 *% MODULE NAME: x 
7 Oo? x x 
© 2g ox  MTP_NIM WRITE x 
2? * x 
30 x INPUTS: x 
C jl x x 
: 3a x RESET FLAG: CARRY SET = RESET x 
45% CARRY CLR = NU RESET * 
OQ 34 x DATA (REG A) with TAPE CUMMAND x 
35% * 
36 % FUNCTIUN(S): x 
C 37 x x 
Bu x 1, TO PROVIDE DATA AND SIGNALLING INFORMATION TO THE x 
- 49 x NUDE APPLICATION. Xk 
co 40 * % 
41 * OUTPUTS: x 
4a *% : * 
oo 43 x M_SIG x 
44 * M_DATA x 
45 x 
Cc 46 * CALLS: * 
47 x 
i a * NONE. ‘ 
1S. 4y % * 
SQ": CALLED BYr- x 
. S51 « * 
© Sa x MTP_ACH_SEQ x 
3 7 
54 * NOTES: x 
C Sy x , x 
Hh x NONE. x 
GG EEL HK KK I KAR HH KH HK EK GK HK EIR KKM KREME KKK KKK KEKE KEKE 
Cc 
e 
ae 
CG 


O 


" 


ra 


. 


FILE: MTPLNIM_W: pADANT 


LOCATION OBJECT CODE LINE 


HEWLETT-PACKARD: MIEPLNIM WRITE (c) Uoleco 1964 Lonfidential 


SOURCE LINE 


SEEGER EEUU CIO OO OE RR IO 
x x 
* PSEUDO CODE: x 
x x 
x  MIP_NIM_WRITE: x 
x x 
® IF CARRY=SEL.17 x 
x THEN x 
x M_SIG=$FF3 /* RESET SIGNAL '*/ x 
% EXIT; x 
* ENDIF x 
x x 
% M_DATA = TAPE_COMMAND /*POINTER 10 INCOMING DATA/* x 
* M_8IG = 00H 

x : ¥ 
* WRITS: RETURN; x 
* ¥ 
x 


HH HEM HHH HIE IEEE EH HEE HEE II IG IEE I TENE IE HEHE ETE TE TE EEE EE HE ER HEM KEK 


Mon, 


7 Nov 14982, 


10:39 


PAGE 


3 


id 


C 


ce ccc 


FILE: ATP NIM Wi: pADAMT HEWLETT-PACKARD: MIPLNIM_WRITE (ce) Coleco 1964 Confidential Mon, Y¥ Nov 196%, 10:39 PAGE 4 


LUCATION OBJECT CODE LINE SUURCE LINE 
79 INCLUDE I_LNiM , 
fh XO EE ERIE III EIEIO HORE EEK EIEIO IEE 
+ x x 
+ HIERARCHY CHAK x 
+ % UF x 
+ & MEDIUM ACCESS CONTRULLER x 
+ xX (HAL) % 
+ & *% 
+ & x 
+ x 
+ X (MAL?) x 
+ % | % 
+ X | x 
+ *¥ fre F vloriaieeieeteaadheduntuateskentententeatesteatenteateateatentan + x 
+ <TR) «NIM> <ACM) x 
+ * { | I * 
+ % S teateiats Reakeaete 2 | + x 
+ * (TRANS) <REC> I CSEQD x 
+ * | \ x 
+ X $m mee ee em me ee cae 0 so va + . { % 
+ % 1 { 1 x 
a CWRITE> (READ) | * 
+ & | x 
+ * | ® 
+ % S ehaleateetntenatel sh ee + x 
+ % \ { * 
+ (EVENT _PRUC)D (RESP >* 
+ x 
+ % * 
KI HH IIE IIE IEE IE IEE IE IEE IEE EE HE IE I IC EI HEE EK EK KEK EK RE KEK 


on 


FELk: 


MIPLNIM_W: pADANS 


LOCATION OBJECT CODE LINK 


Settee ee et et egte ger eter tee etetetit 


HEWLETP-PAUKARD: TYP LNIM NRIVE Ced Coleco 190.5 Confidential 
SOURCE LINE 


JIE IIE IIE HEHE EO RIO I EE BEER IKE 


* INTERFACE MODULE DESURIP TION x 
x fee ee see sone came nee owen sete fet ee one enne enee sone 1809 ate eae Cree Many mene THEE SOS Teer teen FOES cuRE oTey come x 
x x 
* NAKE: % 
x ‘ x 
* 1_NIM x 
x x 
* FUNCTION: x 
x x 
* TO DEFINE THE INTERFACE BETWEEN THE MAC AND APPLICATION «x 
x WITHIN A NODE. EACH AND EVERY NUDE (WHERE A PRINTER x 
x OR KEYROARD IS AN EXAMPLE OF A NODE) CONSISTS OF WG * 
* PARTS: 12AN APPLICATION PART, L.E., FHE SUF TWARE THAT x 
% HANDLES THE NODE’S REASON FOR EXISTENCE, AND 2) A MAC x 
% PART, I.E., THE SOFTWARE THAT INTERFACES TO THE NETWORK, * 
* x 
* DESCRIPTION: * 
x x 
* A BLOCK OF MEMORY WILL BE SHARED BY THE MAC AND APP, x 
x WHEREIN DATA AND CONTROL SIGNALS WILL BE FASSED BACK * 
* AND FORTH BETWEEN THE TWO. A DIAGRAM OF THIS BLOUK x 
¥ (REFERRED TU AS NIM_BLOCK) FOLLOWS; * 
* x 
x NIM_BLOCK x 
* hee me ee eee + x 
* | M_S1G 1 ACR/RESET), MCW); % 
% terrae ee + x 
* 1 M_DATA | ACR/RESET), MCW)3 * 
% tenn ne + x 
HEHE HE IE EE IE EEE FEE 9 OE I IE EE I TE I IE EE EG EE IE EEG DE ICH IEEE IE IE IEE IK 


Mon, 


7 Nov Teu', 


10; 


tv 


a9 


PAGE 


is 


mY. 


-) 


ee 


Oe < &— % 


C 


FILE: MITPLNIM_W: paAbAant HEWLETT-PACKARD: FYPLNIM WRITE (cd Uoleco 1905 Confidential Mon, 7 Nov 19b3, 10:49 PAGE b 


LOCATION OBJECT CODE LINE SOURCE LINE 

4 HRI OIE HIG EUG UIHEE 
+ % x 
+ * DATA ELEMENT DEFINITIONS: x 
+ % * 
+ % % 
+ % M_SIG: * 
$+ OK wee x 
+ % 0- NO SIGNAL CIDLED. ; x 
+ * 170- A COMMAND IS WALTING FUR THE APPLICATION 

+ ® 255- RESET x 
+ * % 
+ xX x 
+ * M_DATA: x 
$e * 
+ * 
+ % 11- READ FRUM TAPE x 
+ % 1é- WRITE 10 TAPE * 
+ “R‘-REWIND THE TAPE TO THE LEADER x 
+ % * 
+ % x 
+ % NOTES; * 
+ % 1. Mi= MAC SIDE OF NODE, * 
+ * 
4 ERO IIH ERO EOI IEE 


Yi & 


OC @ C 


FILE: MTP_NIM_W:pADANT 


LOCATION OBJECT CODE LINE 


COOFF) 
CVUAAD 


HEWLETT-PACKARD: MIP LNIN_WELTE (cd) Coleco 1965 Confidential 


SOURCE LINE 


HE EE IE EEE IE EE I II EE IEE IE KI IE IER EK KKK XE KER O KKEE E 
+ % x 
+t * NOTES TU INSTALLER GF THIS MAC/APP; x 
+X x 
+ * 1. THE APP 1% RESPONSIBLE FOR INITIALIZING ALL Gr RAM. x 
+ x x 
+ xX @, THE APP MUST INITIALIZE THE CUNTROL AND STATUS REG AT BS 
+ x LUCATION u0d1., x 
+ * x 
+ X 3. THE DI_MODE_WORD MUST BE SET (DO ZERO AT PWR UP BY THE x 
+ x 
+ % 4, THE NIM_BLOCK WILL END Al ADDR 127. x 
+ x x 
Parr rrTercrrrrirr ter rr ttt Tt ere tee tee PETS Pee SSeS ee Se 

bo 

81 3 

B2 3; local equates 

BS 3 

84 RESET EQU OFFH 

85 SET EQU QAAH : 

86 EXT M_S1G,M_DATA 

37 


Mon, 


7 Nov 


19s, 


10:40 


P atsh. 


7 


iS ye Se 


FILE: MTPLNIM_W: pADAMNT 


LOCATION OBJECT 


vuog 
0002 
vao4 
0006 
v008 
000A 
vooc 
QOO0E 


Errors= 


2406 
86FF 
9700 
2006 
97 00 
86AA 
9700 
39 


(0000) 


CODE LINE 


HEWLETT-PACKARD: MIPLNIM_ WEATE 


a9 

90 

91 MTP_NIM_WKITE: 
92 

9% 

94 

9% 

96 NOT_RST 

97 

208 

99 ENDIF_RS1: 


‘SUURCE LINE 


PROG 
Lf 
EQU 
REL 
LDAA 
STAA 
EKA 
STAA 
LDAA 
STAA 
RIS 


(c) Coleco 196% Confidential 


MTP _NIM_WRITE 
$ 

NUT_RST SRESET 19 FALSE 
#KESEY 

M_SIG,D 

ENDIF_RST 

M_DATA,D ; 
GEV 

M_SIG,D 


SAVE DATA IN 


Mon, 


7 Nov 


19US, 


1:40 


PAK 


¢ 
Le 


3) 


@® c ¢ 


LINES 


99 
91 
B86 
vo 
2a) 
o4 
8% 


PILE: MTP_NIM_W: pADANT 


SYMEUL. 


ENDIF _RS1 
MTP_NIM_WRITE 
M_DATA 

M_SIG 

NOT_RST 

RESET 

SET 


CROSS REFERENCE TABLE 
rYPE  * REFERENCES 

P95 

P 90 

E96 

E 94,98 

P92 

A 93 

A 99 


PAGE 


FILE: TAPE APP + pADAMT HEWLETT-PACKARD: TAPE_APP 


an 


10 Se RE Re RM RE BE BG He He ES SS A Os BE UE HE HE HE HE BE HE HS BE 8S HE BE BH 


(c) Coleco 1943 Confidential 


£33 63 G85 
et 2s Ss 2 2 2 2 2 2 2 2 2 ttt tt tt kt tt 


LOCATION OBJECT CODE LINE SOURGE LINE 
ee 1 *6e01+ 
Cc 3 NAME ARey 15% 
4 
& De_TAPE_APP MACRO 
e 6 GOTO) 9 Ede_TAPE_arP 
7 
os 8 Project: NEY, 3-101 
C > : 
3 11 
G 12 @ TAPED APP 
13 
oe 14 @ LINKS GENTOO 
€ 15 
16 
s 17 
C 18 Rey History 
19 Rev, Date Name 
. 20 15 85/10/04 HME 
Cc ay 14 83/09/31 HME 
22 
es 23 13 83/09/30 HME 
C 24 
2s, 
: 26 
C 27 
28 
29 12 83/06/18 GRW 
C 30 11 84/08/18 GRW 
31 
. 42 
< 33 10 83/08/18 GRU 
34 9 85/08/18 HME 
oe 3% rs 83/06/18 GRW 
Ce 56 y 83/08/17 GRW 
37 6 83/06/17 GRU 
s $8 5 84/08/17 GRY 
CG BY 4 08-05-83 HME. 
40 3 34/08/01 GRY 
a 41 a 27 julnoon GRY 
Ga 42 1 26 jul1s07 HiME 
43 0 17jul440p DLS 
7 a4 
Go 45 Ede _APP_SVART MEND 
x 
Vy 
or 


Mon, ¥Y Nov 1985, 10:41 


jHeader Rev. 4 


RE SY 


A HAE 


RM ES 


#2 <3 


Ee 
%& 
we 
cd 
BS 
RE 
ne 


Change 

RDS _READ_BIT RE-TIMED 

MOVED A MID-CELL TRANSITION 10 THE 31 uSEC POIN) 

TO PROVIDE A SLIGHTLY INCREASED TOLERANCE TO JITTER 

EXTENDED BIT CELL 10 70 USEC 

ADDED MANCHESTER+1B0 SAMPLING 

MOTORS STAY RUNNING AFTER TRANSFER 

PULLING TAPE CLEARS CURRENT_RAM 

USE CHECK SUM INSTEAD OF CRC_16 

BE SMARTER IN CASE UF FORWARD STALL 

ADDED RETRY LOGrF DECREMENTS TO FIND BLOCK 

CHANGED STATE AND PUSITIUN UF CIP SWITCHES 
BECAUSE THE DESIGNERS FURGOT 10 TELL US 
ABOUT IT AND WE FUUND OUT THE HARD WAY!! 

MOVED CRC CALC. IN WRITE_BLOCK 

OFFLINE CONDITION UPDATES CURRENT_RAM 

ADDED TIMEOUT TUG STOP ROUTINES 

CHECK ONLY MUTLONU OR MUTIONT IN READ STUFF 

ADDED CURRENT_RAM 

REASSIGNED BITS (VU ALUCOMUDATE HARDWARE FIXES 

added block 0 lockout and included new working subroutines 

general fixes and cleanups 

modified to call real application subroutines 

Modified to be tape test application 

Initial Pseudo code 


PAE 


i 


Cs 


Cee 


“~~ 


O 


FILE: TAPE_APP : pADAMT 


LOCATION OBJECT CODE LINE 


HEWLETT-PACKARD: TAPE_APP (c) Coleco 198% Confidential 
SUURLIE LINE 
JR EOC UIE IEEE ERE KOKO EXER 
MUDULE NAME: | 
TAPE_APP 
INPUTS: 


NONE 


FUNC TIONCS): 


1. LOOP CHECK NIM BLUCK FUR CUMMAND AND EXECUTE 
DIRECTLY INTO KNOWN BUFFER LOCATIONS 


NONE. 
CALLS} 


NONE 


CALLED &Y:; 


wm mK mK KK mK HK we OK OK KK OK KO OK oe KOK 


NO ONE x 


NOTES: 


x 
x 
x 
x 
x 
% 
% 
x% 
* 
% 
x 
x 
x 
% 
* 
x 
% 
* OUTPUTS: 
x 
% 
x 
x 
x 
x 
x 
x 
% 
* 
x% 
x x 
* x 
* x 
x x 


Mon, 


7 Nov 1983, 


10:41 


PAGE 


La 


O © © 


Cy. ob) 


FILE: TAPE_APP ;pADAMT 
LOCATION OBJECT CODE LINE 
84 


8S 
Ge 
id 
$93 
oy? 


HEWLETT-PACKARD: TVAPE_LAPP (Cc) Coleco 1965 Confidential 
SUURCE LINE 


ocr eee PP e ee eee rerer er eT ererer reer err reer ere ereor rc eee eer ree er 2 2 3 


x x 


* PSEUDU CODE: x 


x x 


JE EIEIO III EI EEIE EEE OK 


Mon, 


7 Nov 1985, 10:42 


I A G Ie 


5 


on, 
? 
a 


> oe a 


an 


FILE: TAPE_APP i: pADAMT 


LOCATION URJECT 


(0000) 
C0001) 
©0002) 


<U003> 


CODE LINE 


9 


HEWLETT-PACKARD: TAPE_APP (ce) Coleco 198% Confidential 


Mon, ¥% Nov i9&%, 10:42 


SUURLE LINE 


Port 


Port 


Port 


Port 


MO KO OK Ok KOK KOK OO Ke KK 


wm KKK KK OK OK KK OK 


DDRiI 
DDR2 
NOTOR 
MISC 


The drive is connected as follows: 


1: 

bit 0 speed $0 ips when high, 20 ips when low 
bit 1 stopG disables servo on drive 0 when high 
bit 2 stopl disables servo on drive 1 when high 
bit 3 go. fwd applies forward drive when low 

bit 4 go rev applies reverse drive when iow 

bit 3 brake applies brakes to both drives when high 
bit 6 write enable 0 enables drive 0 when low 

bit 7 write enable 1 enables drive 1 when low 
2) 

bit 0 write data data to bovh drives 

bit ji CIP 1, high when cassette is in drive i 
bit 2 track select 1 = track A, 0 = track & 

bit 3 transmit data data out to AdamNet 

bit 4 receive data data in from AdamNet 

33 

bit 0-7 multiplexed address and data to/from external RAM 
4: 

bit 0 Av address to external RAM 

bit 1 AY? address to external RAM 

bit 2 aio address to external RAM 

bit 3 Motiond high when tape is moving in drive 0 
bit 4 mMotiontl high when tape is moving in drive 1 
bit 3 creo high when cassette is in drive 0 
bit 6 unused always reads as 1 

bit 7 read data data from drives URed together 


DATA STRUCTURE DESCRIPTION. 


Tape block header: 


the block proper is preceded by some zeros and a sync byte 

@-byte header id, ( 04757h ) 

@~byte block number ( 0..mMax ) 

one’s complement of block number 

e-byte max block number -~ number of blocks on this track ( origin 1 ) 
checksum ~~ one-byte one’s complement of sum of all above 


Block/drive numbers (eg. CUMMAND_BUFFER, CURRENT_RAM) 


4~byte block number with low byte first 
i-byte drive number ( 0 or 1 ) 


GLE ATP _APP 

EXT NimM_ BLOCK 

EXT: CS WORD 

EXT TAPE _STAITUGSU, TAPE_STATUS1 

EXT LENGTH UF _ LU STATUS 

EXT DATA_BUFFEK 

EXT COMMAND BUFFER 

EXT CURRENT _RaAMm 

EWU QQ0H port 1 data direction 

EWU UVOLH port 2 data direction 

EWU 002H motor control register and write enables 
i UUSH Write data, track select 4 UIP1 


PAGE 


4 


°C @ C C 


FILE: TAPE APP : pADAMT 


LOCATION O8JECT CODE LINE 


(0005) 
<uod7> 
0008) 
CUB09>) 
(O000B)> 
C000F) 
€0010> 
(0011) 
C0012) 
«v013> 
€0014> 


(0008), 
40010) 
(0020) 
<v040) 
<0080) 


(0004) 
{<v002> 
¢€0001> 


CO007F)> 
CUORF > 
CO00C0> 
{00D4> 
€00D2> 
«bODS> 
€00D3> 
<00CD> 
(00CB> 
(U0F4> 
CO0F2> 
CVOEC>D 
COQEA>D 
CQUDE> 


(0040) 


«9000) 
(0001) 
(00058) 
«u0OC>) 
(0052) 
CU0AAd 
CQOFF> 
{0000> 
0001) 
(0002) 
(0003) 
{0004> 
(0016) 
(47357) 
(4845) 
CFE EF > 


148 


14? 


150 
igi 

1S2 
153 
154 
195 
156 
1s? 
158 
199 
160 

161 

162 
163 
164 
165 
166 
167 
16% 
169 
170 
171 

172 
173 
174 
17s 
176 
177 
178 
179 
180 
181 

182 
183 
184 
185 
186 
187 
1380 
18Y 
190 
191 

ve 
19 
194 
193 
196 
197 
19b 
19% 
2uu 
aud 

202 
203 
204 


HEWLETT-PACKARD: TAFE_APP 


SUURCE. LINE 


DDR4 
STATUS 
TCSR 
TIMER 
OCR 
PSCSR 
RMCR 
SCSR 
RDATA 
PDATA 
RANCR 


MOTIONO 
MOTIUNI 
CIPO 

RDDATAU 
RDDATAI 


TRACK 
CIP1 
WIDATA 


WE NABLE 1 
WENABLED 
WDISABLE 
FWDSLOWO 
FWDSLOW1 
FWDFASTO 
FWDFAST1 
REVFASTO 
REVFASTI 
FWDSTOP OU 
FWOSTOP 1 
REVSTOPU 
REVSTOP 1 
STUPPED 


OCF 


M_SIG 
M_DATA 
C_READ 
CLWRITE 
C_REWIND 


C_CUMFAND EGU 


C_RESET 
$_OK 
S$ _KADBLK 


S$ NOBLUCK EQu 


§_NOTAPE 


S_NODRIVE EQU 


SYN 
HEAD_ID 
HEAD_Ib2 


EQU 
EWU 
EWU 
EWU 
Equ 
EQU 
E.QU 
EWU 
EQU 
EWU 
EQU 


EWU 
EWU 
EWU 
EQU 
EQU 


EQu 
EQU 
EQU 


EQU 
EWU 
EQu 
EQU 


EQU - 


EQU 
EQU 
E.QU 
EQU 
EQU 
EQU 
EQU 
EQu 
EWU 


EQU 


EWU 
EWU 
EQU 
EWU 
EU 
EWU 
EWU 
EGU 
EQU 


E.QU 
Etat 
E.QU 


QGSH 
v07H 
O0GH 
VOUSH 
GOBH 
DOKFH 
Q10H 


-011H 


Q1¢H 
01.4H 
014H 


QOO001000R . 


000100008 
001000008 
V1 000C00R 
100000008 


Q00Q01008 
vOVOO010R 
Go0dv0001H 


Q1i111118 
102111118 
11000000b 
110101006 
110100108 


FWOSLOWO.OR.1 
FWDSLOW1.OR.1 


110011016 
110010118 
111101008 
111100108 
111011008 
111010108 
110111108 


010000008 
NIM_BLOCK 


M_SIG+1 
11 


V4A7O7H 
04643H 


SFUP_ PLM VUT EU UR FRH 


‘ 
> 


(c) Coleco 1945 Confidential 


Mon, 


port 4 data direction 
port 4 data 

timer control & status 
16-bit timer register 
timer output compare register 
port 3 control & status 
SCI rate & mode control 
serial control and status 
serial receive data 
serial transmit data 

RAM control register 


bits in STATUS 


bits in MISC 


bits in MUTOR 


move tape forward slow 
move tape forward fast 
Move tape reverse fast 


stop tape in forward direction 


stop tape in reverse direction 


both drives idle state 


output compare flag in TUSK 


COMMAND TU READ TAPE 
WRITE TAPE 

ASCIL (RS 

NORMAL DRIVE COMMAND ~~ CHECK M_DATA 
COMMAND TU RESET NUDE 


sync character 

identification word for block header 
alternate block header for middle directory 
Tlik TU ALLOW MUrORS To sfror 


7% Noy 


1963, 


10:42 


PAGE 


% 


FILE: TAPE_APP :pADAMT 


0000 
me 0001 
e 0002 
0003 
0004 


a 0006 
v 0007 
ov08 


QO0A 


O00B 
oaoc 
~ v00D 


a 000F 


0010 


0011 
a v013 
ae 0g14 
0015 
0017 


Y 0020 
v024 


LUCATION ULJECT 


(0000) 
0001) 
«voo01> 


CQOFAD 
(0017) 


«v020) 


(QO3E) 


0400) 
Cu8so00> 


CODE LINE 


20% 
206 
207 
208 
209 
210 

211 

212 
213 
214 
21% 
216 
217 
213 
219 
220 

221 

222 
223 
224 
229 
226 
227 
228 
229 
250 
231 

232 
233 
234 
235 
236 
237 
258 
239 
240 
241 


242 


PCF on Ch oh 
POON OO Sw Mm oO 


ar 


fon. fo rs fo ps fh te Mm 
tr 


261 


HEWLETT-PACKARD: TAPE_APP 
SUURCE LINE 


3 * * * BLOCK 0 


; 
DISAB_O EMU 0 
CS_MODE EQU 1 
BD_MUDE EAU 1 
DATA 
ZERO_LBYTE RMB 1 
SYNC_LEYTE RMB 1 
TEMP RME 1 
AHITCUUNT RMB «1 
STUFF_END RMB 2 


¥ THE NEXT 3 VARS AKE USED ONLY 
DRIVE_NUM RMB 1 
TRACK_NUM RMB 1 


BLOCK _NUM RMB 2 


* USED FOR MANCHESTER+180 ALGORITHM 


LAST_SEEN RMB 1 


(tc) Coleco i96% Confidential 


LOCKOUT CONSTANI-— 


Mon, 7 


SET WO t TO DISABLE WRITES 


USE CHECK SUMS INSTEAD GF CKC16 CHECK 
BLOLK DEFINITION MUDE~ DIRECTORY IN MIDDLE 


USED TO WRITE ZERO TU TAPE 

USED TO WRITE SYNC TO TAPE 

USED BY CRC ROUTINE 

CUOUNIS BITS FUR TAPE AND CRC 

BUFFER END ADDRESS WHEN READING STUFF 


RY FIND BLOCK 
CURRENT DRIVE 
CURRENT TRACK 
NEXT BLUCK AVAILABLE 


C2] 
[2] 


* THE NEXT 3 VARS ARE SET BY CALC_PHYS AND USED BY EVERYBODY 


WANTED DRIVE RMB 1 

WANTED TRACK RMB 1 
WANTED_BLOCK RMB 2 

* USED BY THE INACTIVITY TIMER 
SHUT_DUWN RMB 1 


IF. BD _MODE 


DESIRED DRIVE 
DESIRED TRACK NUMBER 
DESIRED BLOCK NUMBER 


*% USED BY THE ALTERNATE FURMAT LOGIC 


TAPE TYPE RMH 1 


ENDIF 


BLOCKS_TRACK RMB 2 


NUMBER OF BLOCKS PER TRACK 

RETRY COUNTER FOR FIND_&LOCK 
i 7 "CRC ERRORS 

# of TICKS AFTER WHICH 10 SHUT UFF THE MOTORS 


CRC BYTES FUR DATA BLOCKS 
BUFFER FOR BLOCK HEADERS 
FOR USE BY READ STUFF 
INITIAL SYACK POINTER VALUL 


EXTERNAL RAM BLOCK BUFFER 


CPPS ST ePeC OSS SP See e Lee eee CCecere ere ere te CeCe eT eee ee Sere eee ee cD eee e 2 2 


FIND_TRIES RMB 1 

READ_TRIES RMB 1 

QUIEF TIME EQU 250 

CRC KME rl 

CRC_LEND EWU 

HEAD BUFFER RMB 9 

HEAD LEN EQU $ 

MOTION _HIT RME 1 

STACK _ SPACE RMB 40 

STACK EQU $~1 

BUFFER EQU 0400H 

BUFFER END EQU RUF FER+1024 
PROG 

* The first thing to do is the stack, 

x 

APP_INIT 


SUL and I70 port initialization, 


Nov 


t3] 


1963, 


10:42 


PAGE 


6 


ey 


an. 
mers 


CC @ C CG O&O C6 


LOCATION 


0000 
0000 
v00) 


0004 
0006 
0008 
OO0A 


o00Cc 
DOOE 


0010 
v012 


0014 
0016 


0018 
DOA 


O01C 
oogic 
OO1F 
OO1F 
0021 


0022 


v02S 


0027 


Q02E 


VOe2E 
0031 
0033 
0035 
a3? 
0039 
JOSE 
003D 
0040 
0042 
vuas 


v047 
004A 
OU4A 


FILE: TAPE_APP :pADAMT 


VESECT 


OF 
BEDUSE 


BODE 
9702 
BbFF 
9700 


B41 
9701 


8407 
9705 


B604 
9710 


BO61A 
9711 


CEQOFF 


7A0004 


0E 


7EQLAC 


7OOOUF 
2717 
8640 
9308 
2711 
9608 
DCO? 
C307D0 
DOOR 
7AQ00F 
2604 


BDUZOA 


96038 


CODE LINE 


Beit 
263 
#4 
26S 
#66 
267 
268 
269 
270 
271 

272 
273 
274 
275 
276 
277 
278 
279 
280 
281 

282 
283 
284 
285 
286 
207 
288 
289 
290 
291 

292 
293 
294 
295 
296 
297 
298 
299 
300 
301 

302 
SUS 
304 
308 
306 
S07 
308 
509 
310 
$11 
312 
31S 
314 
318 
316 
317 
318 


HEWLETT-PACKARD: 


SUURCE LINE 


ATP_APP 


SET 
LDS 


LDAA 
SAA 
LDAA 
SAA 


LDAA 
STAA 
LDAA 
STAA 
LDAA 
STAA 


LDAA 
STAA 


CLEAR_RAM 


REPEAT 


CLI 


JMP 


TAPE _APP 


#5 TACK 

#S TOPPED 
MOPFUR 
111111114 
DDR1 


#000101018 
DDR2 


#000001118 
DDR4 


#04H 
RMCR 


#10H 
SCSR 
#00FFH 
0,X 


#U080H 
REPEAT 


CURRENT_RAM+4 


INLT_TIMER 


Cc) 


Coleco 1784 Confidential 


Mon, 7¥ Nov 1985, 10:4% 


SET FOR WHEN WE JUMP HERE 
INDVIALIZE THE STACK POINTER 


set up the port for no motion or writing 
set up the bit directions 

set up bit directions for MISC port 

set directions for address/status 

INIT RATE AND MODE 

TO 62.5K (rate) AND NRZ (mode) 

also TE AND RE IN THE TRCS REG Cenables and rec. int.) 
POINT YO TOP GF INTERNAL RAM 

CLEAR A BYTE 

DEC THE POINTER 

ARE WE AT THE BOTTOM? 

LOOP IF NUT 


INVALIDATE CURRENT _RAM 


ALLOW ADAMNET INTERRUPTS 


TO START, MAKE SURE TIMER GETS SET UP PROPERLY 


JOR OR GEICO EIU IEE IRIE OOO IEE EK 
TAPE APPLICATIUN., 


x MAIN, 


LUUP : 


MAIN_LUOP 


* FIRST 


x KILL 


SEE IF 
1ST 
KEG 
LOAA 
BLTA 
BEG 
LDAA 
LDD 
ADLDD 
$rDp 
DEC 
RNE 
MOTOKS, 


THIS [5 tHe 


INACTIVITY TihkR HAS TIMED OU 3] 


SHUP_ DOWN 
MUTORS_ OKA 
#00F 

JVOSR 
MOTURS _ UKA 
TCSR 

CLRER 
#2000 

UR 
SHUT _ DOWN 
MUTURS UKA 


Y 


af 


Y 


° 


HAVE WE TURNED GFF THE MOTURS? 
HRANCH IF SU 

SkT BLY FORK GUTPUT COMVAKE 

UNE mbEC HASN’T UCCURRED 

CLEAR UCK FLAG 


ANGIHER TWO mS&EC 


HAS THe WHULE Suu msi eLarSeEbD? 


® ASSUME THAT WANTED LDMIVE 1S STILL CORRECT 


MOTORS_ 


JK 
OKAY 
LDAA 


STUP_FORWARD 


NLSC 


She It CASSETTE IN PLACE 


PAGE 


ets 


lo @ce 


LOCA TON 


004C 
004E 
v0S0 
0082 
054 
0036 
vose 
COSA 
voSC 
0O5C 
VOSE 
0060 
0063 
0065 
0067 
v06&9 
006R 
Q06Rk 
vO6D 
OU OF 
0071 
0073 
0075 
0075 
v077 
0079 
0078 
007D 
VO7F 
0081 
v083 
0085 
0085 
v087 
0089 
008C 
VOBE 
0090 
0092 
0094 
0074 
OU9& 
9098 
DOXA 
009C 
VO9E 
OO9E 
voAU 


00A2 
v0AS 
00UAS 
DOA? 
QO0AA 
vOAT 
OO0AF 
v0AF 


FILE: TAPE APP: pADAMT 


ORJECT 


8502 
2618 
9607 
8510 
2706 
C604 
D706 
2014 


C603 
D700 
7D000B 
2710 
BOF 
9704 
2008 


97600 
B10 
2504 
C400 
D700 


9607 
B520 
2619 
e508 
2706 
C604 
D700 
2019 


C403 
D700 
7DO008 
2610 
Bérr 
9704 
200A 


9600 
8103 
2504 
C600 
D700 


7600 
27Bu 


OF 
S1FF 
2719 
BDUSS4 
2403 
FEDISA 


BAA 


CODE LINE 


S31 
320 
S21 
322 
S23 
324 
$235 
326 
327 
328 
$29 
330 
331 
352 
335 
334 
33% 
336 
337 
338 
359 
540 
341 
$42 
SAS 
344 
$435 
346 
SA? 
348 
S54? 
350 
351 
452 
BUS 
354 
SoS 
356 
S57 
358 
3359 
S60 
361 
S62 
363 
bh4 
365 
S66 
367 
Jou 
Sb? 
370 
S71 
3/2 
373 
374 
3/3 


HEWLETT-PACKARD : 


SOURCE LINE 


SHK1 4 


DR1_OK 


CHKO 


CHKO_1 


DRO_OK 


CHK SIG 


MAIN 1 


RITA 
BNE 
LDAA 
BLTA 
BEY 
LDAR 
STAB 
BRA 


LDA 
STAB 
TST 
BEQ 
LDAA 
STAA 
BRA 


LDAA 
CMPA 
BLO 

LDAB 
STAB 
LDAA 
BITA 
BNE 


BITA © 


KEQ 
LDAK 
STAB 
BRA 


LDAB 
STAB 
1ST 
BNE 
LDAA 
STAA 
BRA 


LDAA 
CHMPA 
BLO 

LOAB 
STAR 


LDAA 
KEW 


GEL 
LMPA 
HE 
JER 
BEL 
JMP 


CrmPA 


TAPE LAPP (cd Coleco 


UIP 1 

DR1_OK 

STATUS 

#NUT LONI 
GHK1_4 
#i3_NUDRIVE 
TAPE_STATUS1, D 
CHK 0 


#5_NUTAPE 
fAPE_STATUS1,D 
WANTED DRIVE, D 
CHKO 
#255 
CURKENT_RAN+4 , D 
CHK 0 


TAPE_STATUS1 ,D 
3_NUTAPE 

CHK O 

#5_OK 
TAPE_STATUS1,D 


STATUS 

#C1P 0 

DKO_OK 
#HUTIONO 
CHKO_1 
S_NUDRIVE 
TAPE_STATUSO,D 
CHK _SIG 


#5_NUTAPE 

TAPE _STATUSD, D 
WANTED _DRIVE,D 
CHK _SIG 

#255 
CURKENT_RAM+4, D 
UHK _ SiG 


TAPE _STATUSO,D 
#5 NUTAPE: 

CHK S16 

#5_UK 
TAPE_STATUSO,D 


M_G1G,D 
MAIN _LOUP 


#C RESET 
EXEG RESET 
LAL PHYS 
MAIN 1 
NU_BLUCK 


#0 COMMAND 


ERANCH IF SU -~ NG PROBLEMS 


1904 UContidential 


CHECK MUTIUN BLT NEXT 


BRANCH IF TAPE OUT 
IF MOTION AND NO CASSETTE -- NOG DRIVE 


Mon, 7% Nov 1985, 10:43 


IF WE’RE TALKING TO DRIVE 0, WE DON’T WANT TO TRASH CURRENT RAM 
[4A] 
[4A] 


SEE WHAT‘’S ALREADY REPORTED 


DON’T CLOBBER LOW MESSAGES 


IS THERE A CASSETTE? 


BRANCH IF SQ -- ALL 15 WELL | 


IS THERE MOTION? 
NO ~- SHOW NO TAPE 


ELSE SHOW THERE IS NO DRIVE 


SHOW NO TAPE 


PAGE 


IF WERE NUT TALKING T06 DRIVE 0, WE DON’T WANT TO TRASH CURRENT _RAM 
[4A] 
[4A] 


SkE WHAT'S ALREADY REPORTED 


DUN‘T CLOBBER LUW MESSAGES 


GkT THE 


LuorP 


DISABLE 


MAC‘TS 
IF NOTHING 


SINCE 


BYTE 


WIR 


BRANCH TF RESET CO 


CUNVER T 


BRANCH LE 


ELSE 


JUMP 


LOGIUAL 


fo bO 


i PROCESSING 


MMAND 


DRIVES BLUCK 


ALL 2S Whol 


10 


SHUW 


ERROR 


(0 PHYSICAL 


8 


os 


co 


i; 


'C @ CC © 


FILE: TAPE APP : pADANT 


LOLATION 


O0K1 
 QORS 
OOS 
VOBZ 
009 
DORE 


OO0KD 


OOBF 
OORF 
voCi 
00C3 
o0Cé 
00Cs8 
VOCE 
00CKE 
vecD 
0OCF 
00De2 
00D4 
VOD? 
00D7 


OUDA 
VODA 
ODD 
OODF 
QUEL 
003 
OO 
VOES 
GOES 
VOER 
OOED 
QOEF 
OOF 1 
VUFS 
QOFS 


OOF 7 


ORJECT 


2669 
9601 
8108 
272) 
810C 
2744 


8400 
97 UK 
BDO 387 
2503 
BD0210 


8601 
o70E 
BD0387 
2503 
BRD0210 


7E0000 


BDO 387 
2541 
8605 
9714 


RDOISD 
254 
BDO SEY? 
bcou 
DDOO 
DLve 
DDOe2 
9604 
9704 


BDOeDI 


CODE LINE 


376 
Be7 
37% 
S79 
360 
SEL 
382 
SIS 
384 
S85 
Bue 
387 
388 
S89 
390 
$91 
392 
395 
394 
S95 
396 
S97 
398 


SPP 


400 
401 


HEWLETT-PACKARD: TAPVE_APF (co) Coleco 1943 Confidential Non, 
SUURLE LINE 
BNE CMb_COMP BRANGH IE INVALID COMMAND 
LDAA M_DATA,D FIND UUT WHAT MAC WANTS 
GMPA #C_ READ 
BREW EXEC _R READ THE TAPE 
GMPA #C_ WRITE 
BEQ EXEC _W WRITE THE TAPE 
} CMPA #U REWIND 
‘ BE EXEL _REW REWIND (THE TAPE 
BNE CM)_ COMP HRANCH LF INVALID OPERAND 
HKG HEH HK HHH HK KKH KEK KH EEK EMME MERE KE KKK KKK KK 
EXEC_RESET 
LDAA $0 
STAA WANTED _DRIVE,D 
JSR CLP CHECK FUR TAPE IN DRIVE 0 
BCS CHECK _ 1 BRANCH IF NOT - 
JSR REWIND ELSE REWIND IT 
CHECK _ 1 
LDAA $1 
STAA WANTED _DRIVE,D 
JSR cle CHECK FOR THE OTHER TAPE 
BCS CHECK _2 BRANCH IF NOT THERE 
JSR REWIND ELSE REWIND IT 
CHECK _2 
JMP APP_INIT 
KKK MK KEK HK RE RK HH KKH HK KKK KKK KEK RRR KKM EK KEKE KK KEK KKM KK KKKKHK KK 
* THIS ROUTINE JUST REWINDS THE TAPE, — 
2 
sEXEC_REW 
3 JSR cip SEE IF THERE’S A CASSETTE 
4 BCs NU_CASSETTE BRANCH IF NO TAPE IN THAT DRIVE 
H JSR REWIND ELSE REWIND THE TAFE 
; BRA UMD _ COMP 
MICS NSE SMSC HANH Se EAE NE ie 
* THIS ROUTINE READS A BLOCK FROM fHE PAPE INTO THE BLUCK BUFFER. 
EXEC_R 
JSR CLP CHECK FOR CASSETTE 
BCS NU_CASSETTE BRANCH IF [T°S NUT THERE 
LDAA $15 SET RETRY COUNTER 
SAA READ TRIES, D 
RETRY 
JGR FCLND_ BLOCK GO LOOK FUR THE BLOCK 
BCS NU BLOCK BRANCH IF IT ISN’T AROUND 
JSR READ BLOCK ELSE CONTINUE TO READ THE DATA & CRE 
LOD: COMMAND BUFFER, DO COPY COMMAND BUFFER TU CURRENT RAM 
Sip CURRENT RAM, D 
L 2d) VUMMAND BUFFER +2 ,D 
STD CURRENT RAMNtEe, D 
L.DAA COMMAND _ BUFFER +4, D 
STAA CURRENT _RAM44,D 
LF PS NUDE 
JGR CAL.C_SUM CALG THE NEW SUM £4] 
ELSE 
JSR CALC CRC CALC TH NEW CRO 
ENDIF 


7 Nov 


198s, 


10:44 


PACK 


9 


Cs 


FILE: TAPE_APP :paADAnT 


LUCATION 


QOFA 
VOFD 
OOFF 
vive 
0104 


0106 
0106 
0109 
0108 
v10D 


010F 


0112 


0114 
0117 
0119 


O11 
o14ic 
V11E 
0120 


0120 
Q122 
0124 
0126 
012% 
Q12A 
o12eaC 
Q12E 
0130 
0130 
0132 
0134 
b154 


N136 
0136 


UBJECT 


B30015 
e7 ib 
FAVO14 
26Dr 
202A 


BDU 387 
as15 
BOFF 
9704 


BDU2DI 


DDisS 


BDOISD 
ao18 


BDOACC 


8600 
2016 


Devo 
DDGO 
DLUe 
DdDV2Z 
B6U4 
9704 
8605 
2006 


8601 
2002 


8602 


7D000B 


CODE LINE 


455 
444 
433 
446 
437 
458 
439 
440 
441 
442 
443 
444 
4435 
446 
447 
448 
449 
450 
451 
4352 
433 
454 
433 
456 
437 
438 
4s 
460 
461 
462 
463 
454 
465 
466 
467 
464 
469 
470 
471 
472 
474 
474 
47S 
476 
477 
473 
479 
430 
491 
462 
493 
4u4 
4% 
4n6 
407 
400 
4gy 


HEWLETT-PACKARD: YTARE_LAPP (cd) Coleco 1983 Confidential Mon, 7 Nov 1985, 10:44 


SUURCE LINE 


SUBD CRG COMPARE TO READ CRC 

REQ LAD _ CUMP WERE FINISHED IF NO ERROR 

DLC READ _ TRIES ELSE DEC RETRY COUNTER 

BNE. KE FRY 

BRA CANT _READ FAILED AFTER RETRYING CRC ERRORS 


KEK CI IEE EO OEE IEEE ICE EOE KEKE ROK EKER REDE REM IE J HEE 


* THIS ROULINE WRITES THE CONTENTS OF THE BLOCK BUFFER ONTO THE 
* TAPE. 
EXEC_W 

JGR CLP CHECK FUR CASSETTE 

BCS NU_CASSETTE HRANCH IF SLOT EMPTY 

LDAA $2555 MAKE CURRENT_RAM INVALID 


STAA | CURRENT _RAM+4, D 


; BLUCK 0 LOCKOUT CODE- CHANGE DISAH_0 TO ALLOW/DISALLOW WRITES 
x LDAA COMMAND BUFFER , D 
x OKAA COMMAND _BUFFER+1 ,D 
x URAA #1~DISAB_0 
x BEQ CMD _COMP TELL THE POOR SAP THAT 17 WORKED, EVEN THOUGH WE DIDN‘T TRY 
1F CS_MODE 
JSR CALC_SUM CALCULATE THE BLUCK‘S SUM [4] 
ELSE 
JSR CALC_CRC CALCULATE THE BLOCK’S CRC 
ENDIF - 
STD CRCE,D SAVE IT 
JSR FIND _BLOCK LOUK FOR THE BLOCK 
BCS NO_ BLOCK BRANCH IF IT ISN/T THERE 
JSR WRITE _BLOCK ELSE GU WRITE THE DATA & CRE 
HK IH HH HK HH HK KKH EK RK KKH KREME KEK KEK K KKK EK KEKE KEKE 
% ALL COMMANDS RETURN HERE WHEN THEY CUMPLETE. 
CMD_COMP 
LDAA #5 _UK SHOW NO ERROR 
HRA ERR _ COMMUN 
NO_CASSETTE 
; COPY CUMMAND BUFFER INTO CURRKENT_RAM 
LDD COMMAND BUFFER ,D : 
SVD CURRENT _RAM, D 
LDD CUMMAND_ BUFFER +2, D 
SVD CURRENT _RAM#2,D 
LDAA CUMMAND_BUFFER+4, D 
STAA COMMAND _ BUFFER +4, D 
LDAA #35 ND PAPE SHUW WERE MISSING A TAPE 
BKA EKR_ COMMUN 
CANT _KEAD 
LDAA #5 _BADHLK SHOW Wk CANS) READ THE EI OLK 
BRA ERR _CUMMUN 
NO_ BLOCK 
LDAA #5) NUFLOCK 
ERR_COMMON 
TST WANTED DRIVE, D WHICH DRIVE AE WE PLAYING WITH? 


PAGE 


10 


® Cc 


FiLke: TAPE APP: pADANT 


LOCATION 


0139 
01358 
O13D 
01 3F 
013F 
0141 
0141 
0144 
0146 
0148 
014A 
o14C 


014C 
O14E 
v1iS0 
0153 
0155 
0157 


015D 
O15) 
v1SF 
0161 
0161 
0164 
0166 
0167 


0168 
0168 
016A 
V16C 
U16E 
0170 
0172 


0174 
0174 
0176 
01768 


ORJECT 


2604 
9700 


2002 
9700 


7F0000 
9611 
9612 
Beiet 
9711 


F608 
DCO? 
C307D0 
DDO 
BorA 
97 OF 


OE 


7EOOQ2E 


84606 
9715 


7D0013 
2602 
0D 

3? 


960K 
9106 
2604 
960L 
9107 
271k 


960K 
9706 
960C 


CODE LIN: 


avy) 
avi 
492 
493 
494 
47s 


- 496 


497 
496 
499 
300 
501 
sod 
pw UR) 
504 
50S 
306 
307 
208 
309 
710 
oti 


or CReen ch oh or OF 
Po Po Po PE fo te 


HEWLETT-PACKARD: TAPELAPP (cy Coleco 1¥u35 Confridential “Mon, 
SOURCE LINE 


BNE ERR 1 BRANCH IF DRIVE 1 


S1AA TAPE_STATUSO,D PUY THE BYTE FUR DRIVES 
BRA ERR END 
ERR_1 
SIAA TAPE _STATUS1,D PUT THE BYTE FOR DRIVEL 
ERR_END 
CLR M_S1G,D GO IDLE NEXY TIME THROUGH 
LDAA SCSR 
LDAA RDATA 
LDAA #18H 
STAA SCSR 3 ENABLE RCVR INTRETS 
INIT_TIMER 
* SET UP INACTIVITY TIMER FOR S00 mSECONDS (31 
LDAA TCSR CLEAR TIMER FLAG 
LDD TIMER 
ADDD #2000 * TWO mSEC 
STD OCR 
LDAA #QUIET TIME 
STAA SHUT DOWN, D 
CLI RE-ENABLE INTERRUPTS 
* BACK FOR MORE ABUSE 
JMP MAIN_LOOP 
JOR HOC HUI RICE IERIE IEICE UII OE IG EOE 
x This subroutine will try to find the block whose number is in 
* WANTED _BLUCK, whose track number is in WANTED_TRKACK, and whose 
*% drive number is in WANTED_DRIVE. 
x When the block is found, this returns with the tape in motion, with 
* the head between the header and the data block. If it can’t 
* be found, it returns with the tape stopped and the carry set. 
FIND _BLOCK 
LDAA #6 ALLUW GURSELVES 6 TRIES TO GET THE BLOCK 
STAA FIND FRIES ,D 
FIND_BLOK 
TST FIND TRIES,D HAVE WE USED UP ALL GUR TRIES? 
HNE FIND AGAIN BRANCH IF NUT 
SEC GHOW AN ERROK 
RTS 


FIND_AGAIN 


LDAA WANTED DRIVE, D 

UMPA DRIVE _NUM, D COMPARE TO CURRENT DRIVE 

BNE. GET_VARS BRANCH 1F NOY THE SAME 

LDAA WANTED TRALUK , D 

CMA TALK _NUM, D CUMPARE TU CURKENE TRACK NUMBER 


Bk. ul SAME PRAUK BRANUH ITF THE SARE 


x If the drive number or track number is different from the last 
* tine we were called, we’Jl have to read a header from that 
* desired drive/track to see where it is positioned. 


| SET_VARS 


" LDAA WANTED DRIVE,D UPDATE THE PARAMETERS Wi ALREADY KNUW 
GTAA DRIVE NU, D 
LDAA WANTED TRACK , D 


7 Nov 1983, 
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FILE: TAPE_APP :pADAMT 


LUUATION 


017A 
vi7c 
017C 
vI7F 
0181 
0184 
0184 
0186 
0188 
018A 
0168 
018c 
018C 


018F 
018F 
0191 
0193 
G195 
0197 
0197 
0198 
U1LPA 
019C 
O19E 
01A0 


viAa 
01A2 
Q1IAS 


v1AB 
01A8 
OLAE 
OLAE 
v1B0 
0183 
VIBS 
0188 


VIBB ¢ 


OLED 
VIBE 


UIEF 
O01 GF 
01Ce 
0104 
v1C6 
01C9 


uv1CKE 
O1CB 
vice 
Q1CD 
b1Do 


OBJECT 
9707 


BDOSE2 
2405 
7E0O1BF 


DC1? 
9S0D 
2602 
oc 
39 


BDO26A 


DCOD 
9308 
2602 


2061 


4D 

2k31 
2606 
cio 
2402 
2056 


830004 
BDULS? 


BDUS15 
BDU SAI 
250F 

Bs0u01 
26F 3 

BDOZ6HA 
7JAGOIS 


RDOZGA 
pu14 
930L 
BDGaYA4 
2008 


43 
og 
C30005 
BDUaY4 


CODE LIne 


HEWLETT-PACKARD : 


SUURLCE LINE 


STAA 
FIND HEAD 
ISK 
BCC 
JMP 
GOT_HEAD 
LDD 
SUBD 
ENE 
GLE 
RTS 
NOT_IT 
JSR 


VAPE_APP (ce) Coleco 1904 Confidential Mon, 
TRACK NUM, D 

READ HEADEK READ THE NEXT BLOCK NUMBER 

LUT HEAD 

FWD_STALL REWIND & TRY AGAIN Tk CAN’? GET HEADER 


HEAD BUFFER+2,D LOOK AT THE BLOCK NUMBER WE JUST READ 
WANTED BLOCK ,D IS VYHIS THE UNE WE WANT? 


NOT_IT BRANCH IF NUIT 
RETURN IF SO 
STOP FORWARD ELSE STOP THE TAPE 


* Now we know where that drive/track is positioned. 


SAME_TRACK 
LDD 
SUBD 
BNE 
BRA 

GO_LOOK 
TSTA 
BMI 
BNE 
CMPB 
ERHS 
BRA 


FORWARD 
SUBD 
JSR 


FWDLOOP 
JSR 
JSR 
BCS 
SUBD 
BNE 
JSR 
DEC 
BNE 
SEC 
RTS 


FWD_S TALL 


JSR: 


LOD 
SUED 
JOR 
BRA 


BACKUP 
COMA 
CUMB 
AUDD 
JOR 


WANTED _BLOCK ,D 

BLOCK NUM, D COMPARE TO NEXT BLOCK 

GO_LOOK BRANCH IF THIS ISN’T IT 

JUST AHEAD BRANCH IF WE’RE THERE 

BACKUP BRANCH IF I'’S BEHIND US 
FORWARD BRANCH IF IT’S A LUNG WAY AHEAD 


#5 IS IV LESS THAN S BLOCKS AHEAD? 


FORWARD BRANCH IF NOT -- MOVE TAPE FAST 
JUST_AHEAD ELSE JUST GO READ IY 

$4 SET 10 COME GUT GF HYPERSPACE A LITTLE EARLY 
FAST FORWARD SPART THE TAPE FORWARD 

SK1P_ BLOCK WAIT WHILE A BLOCK PASSES 

CHECK MOTION IS THE TAPE SPILL ROLLING? 

FWD STALL BRANCH IF NOT 

#1 DEC, THE BLOCK COUNT 

FWDLOGP LOGP UNTIL WE GET THERE 

STOP FORWARD STOP THE TAPE 

FIND TRIES 

FIND HEAD AND SEE WHERE WE 


ARE 


STOP _F ORWARD 
HLUCKS_ TRALK , D 
WANTED _BLOLK, D 
Fat 1 REVERSE 
REVLOUP 


TURN GFF THE MOTORS 


FIGGER GUT HUW FAR BACK TO LO LS] 


NEGATE THE VALUE TU GkT DISTANCE 


(SET 1 10 COME GUT UF HYPERGPACE 
START THE PAPE REVERSE 


#1+4 
FAS f REVERSE 


Been ens 
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FILE: TAPE _APP : pADAMT 


LOCATION 


VIDS 
01D3 
01D6 
O1D9 
O1DE 
OLDE 
01E0 
Q1ES 
O1ES 
O1E8 
1E9 


VIEA 
Q1EA 
O1ED 
O1F 0 
VIF2 
Q1FS 


O1FS 
01F8 
V1FE 
O1FD 
O1FF 
0201 
v203 
0205 
0208 
0208 


O20E 
O20E 
v20F 


210 
0210 
v211 
0212 
215 
0217 
0219 
O21 
v2e1B 
021d 
u21D 
O21F 
ve2e2 
0222 


b225 


0227 


UBJECT CODE LINE 


BDO31S 
BDO SAI 
2S0F 
BSOV01 
26F 3 
BDOV2ZA7 
7A0013 
2694 
OD 

3°? 


BDU2A7 
CCOODD 
DDOsS 

7A0013 
7E0161 


EDOSE2 
asce 
DCOD 
P51? 
2708 
eAFS 


BDO26A_ 


7AVU1S3 
7E0161 


oc 
39 


37 

36 
7DO00R 
2604 
B6CD 


2002 
SOCK 


9702 
BDOV2E2 
BDUSAL 


24are 
BDO 2A7 


604 
605 
&06 
607 
608 
609 
610 

611 

612 
613 
614 
613 
616 
617 
618 
619 
620 

621 

622 
623 
624 
625 
626 
627 
628 
629 
630 
631 

642 
633 
6454 
635 
636 
637 
6398 
639 
640 
641 
642 
643 
644 


HEWLETT-PACKARD: 
SUURCE LINE 


REVLOOP 
JSR 
JSR 
HCS 
SUBD 
BNE 
JSR 
DEC 
HNE 
SEC 
RTS 


REV_STALL 
JSR 
LOD 
S1D 
DEC 
JMP 


JUST_AHEAD 
JSR 
BCS 
LDD 
SUBD 
BEQ 
BPL 
‘ JSR 
DEC 
JMP 


FOUND_IT 
CLC 
RTS 


TAPE _APP 


SK LP _BLOCK 
CHECK NUT LOUN 
REV_STALL 

#1 

REVLOUP 
STUP_REVERSE 
FIND_TRIES 
FIND HEAD 


STOP REVERSE 
#0 

BLOCK _NUM, D 
FIND TRIES 
FIND_BLOK 


READ_HEADER 
FWD STALL 


WANTED_BLOCK ,D 
HEAD _BUFFER+2, D 


FOUND_IT 
JUST_AHEAD 
STOP _FORWARD 
FIND TRIES 
FIND _BLOK 


(c) Coleco 1983 Confidential 


Mon, 


WAIT WHILE A BLOCK PASSES 
IS THE TAPE STILL ROLLING? 
KRANCH 1F NOT 

DEC. THE BLOCK COUNT 

LOOP UNTIL WE GET THERE 
STOP THE TAPE 


AND SEE WHERE WE ARE 


TURN OFF THE MOTORS 
UPDATE THE BLUCK NUMBER 


COUNT THIS AS A TRY 
AND TRY AGAIN 


GET THE NEXT HEADER 

IS THIS THE BLOCK 
BRANCH IF YES 

LUOP IF IT’S JUST AHEAD 
ELSE WE MISSED 11T!! 
COUNT THAT AS A TRY 

AND TRY AGAIN 


MPSPPLTTTETiTrrrrrrrrirrtritrrir tt re tri it titi iit t ttt terre ele: 


* This subroutine rewinds the tape. 
to see which drive is being referred to, 
It exits with the tape stopped, and it zeroes the 


x 
* when it is called, 
* This always disables writing when it starts the motor. 


BLOCK _NUM. 


» REWIND 


PSHE 
PSHA 
TST 
BNE 


LDAA 


RRA 
REWI 

LvpAA 
REW 

$i fAA 

JGR 
REW2 

JOK 

RCC 

JSR 


WANTED DRIVE, D 


KEW 
#¥KEVEASTO 
KEW 


¥#KEVFASTI 


MOTOR 
PAUGE 
GHE.GK MUT LUN 


REWe 
STOP REVERSE 


{ft checks the value in WANTED _DRIVE 
lt assumes the tape is stopped 


WHICH DRIVE? 


run the tape in reverse 


let the sucker get up to speed 


check the motion bit 
loop if stili moving 
then stop the drive : 
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10:46 


PAGE 


1% 


(Oo @ C 


FILE: TAPE_APP:paDAMT 


LOCATION 


022A 
22D 
0230 
0233 
0235 
0236 
0237 


0238 
0238 
0239 
023A 
023D 
023F 
v241 
0243 
0243 
0245 
0245 
0247 
0249 

245 
vest 
024E 
v251 
0254 
0255 
0256 


0257 
0257 
v258 
VeSRB 
V25D 
025F 
V261 
Veot 
0263 
C263 
0265 
0268 
269 


OBJECT 


BDO2E2 
BOVE 
CCo0ne 
DDB 
32 

33 

39 


36 

37 
7DO0O0B 
2604 
86D4 
2002 


86d2 


D602 
C4C0 
BASE 
1B 
9702 
BRDU2ER 
BDOeER 
33 

32 

39 


36 
7OVOOE 
2604 
BONS 


2002 
84D5 


9702 
BOGE H 
32 

3? 


HEWLETT-PACKARD: TAPE_LAPP (cd Coleco I?b3 Confidential Mon, 47 Nov 197t3, 10:46 

CODE LINE SQURCE LINE 

661 JSR PAUSE let the bouncing stop 

662 JSR PAUSE 

665 © LDD #0 zero the block 

6b4 SPD BRLUCK NUM, D 

665 PULA 

666 PULB 

&67 RIS 

668 


G69 IKI ROC IOIHEUEIEUIE EEEIGURIO EOE EIEIO 
670 * This subroutine starts the tape moving in a forward direction, ; 
671 * It assumes the tape is stopped when it is called, but it exits 

672 * with the tape in motion, It checks the value of WANTED DRIVE to 

673 * determine which drive is in question, This doesn’t alter write enable, 
674 

6735 GO_FORWARD 


676 PSHA 

677 PSHB 

67% TST WANTED_DRIVE,D 

679 BNE GUF 1 

680 LDAA #FWDSLOWO tell the drive to move the tape 
691 BRA Gure 

662 GOF1 

683 LDAA #FWDSLOW1 

684 GOF2 

685 LDAB MOTOR 

686 ANDB #110000008 PRESERVE WRITE ENABLES 

607 ANDA - #€001111118 . 
688 AHA MIX OLD ENABLES WITH NEW MOTORS 
6B? STAA MOTUR 

670 JSR PAUSEI00 let the tape get up to speed 
671 JSR PAUSE100 

692 PULE 

693 PULA 

594 RTS 

69S 


GPE KKK KH HEI HIE EE IEE HE HE IC DE IK IE IE TE IE BEE TE IG BE JE BE IE EG DEG IE JE I FE IE SE EE I IE EI IE IE CE I IEE CIEE OC 
697 * This subroutine starts the tape moving fast in a forward direction. 
698 * It assumes the tape is stopped when it is called, but it exits 


699 * with the tape in motion. This always disables writing. 

700 

Z01 FAST_FORWARD 

702 PSHA 

703 (ST WANTED DRIVE ,D 

704 ENE FASTE1 

70S L.DAA ¥#FWDFAS TO tell the drive to move the tape 
706 RKA FASITF 

707 FASTF1 ; 

708 LDAA $F WDE ASTI 

709 FASTF 

710 STAA MOTOR 

714 JSR PAUSET OU let the tape get partly up to speed 
712 PULA 

713 RTS 

714 


VAST OCC CSCC SSSCS SOLS SSL S SSS SS SSOP SS SSCS SSCS CCE SS SSO SSCS CLS S eS SCE ee 2222 
71ibé * fhis routine brings the tape to a halt from the forward direction, 
717 * It assumes the tape is in motion forward when it is called, and 
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FILE: TAPE_APP: pADAMNE 


LOCATTON ORJECT CODE LINE 


026A 
U26A 
0268 
0260 
026) 
v270 
0273 
ve7S 
0277 
v279 
0278 
0278 
027D 
O27F 
027F 
0281 
0283 
vess 
0285 
0287 
0289 
V28A 
028C 
026C 
V28E 
0290 
v291 
0292 
B293 


0294 
0294 
0295 
0298 
V2E9A 
O29C 
P29E 
OSE 
D2A0 
02A0 
UV2ZA2 
O2AS 
ULAG 


CEFFFF 
7DVOOB 
2606 
Bar 4 
C608 
2004 


B86F2 
Céiv 


DS07 
2709 
9702 


D507 
2703 
09 

2bF9? 


BODE 
9702 
38 
33 
32 
39 


36 
7DOVOB 
2604 
86UD 


2002 
846Ck 


9762 
BOOB 
2 


39 


71% 
71? 
720 
Fel 
7a2 
723 
724 
7es 
728 
7a? 
728 
729? 
730 
731 
752 
733 
734 
TSS 
736 
737 
738 
739 
740 
741 
742 
743 
744 
7AS 
748 
747 
748 
749 
7350 
731 


752 


ted foe 
7353 
7354 
75%) 
736 
737 
738 
79 
760 
761 
762 
763 
764 
763 
746 
767 
76 
76Y 
7/U 
771 
772 
P73 


774 


HEWLETI<PACKARD: TAPELAPP (cd Coleco 1903 Confidential Mon, 7 Nov 1983, 10:46 


SOURCE LINE 


x exits with the tape stdépped. This always disables writing. 
STOP _FORWARD 
PSHA 
PSHH 
P SHX 
LDX #S7VUP_ TIMEOUT INI? TLIMEOU! COUNTER 
Tsf WANTED _DRIVE,D ELSE SEE WHIUCH DRIVE WE’RE USING 
BENE SF1 BRANCH IF USING DRIVE 0 
LDAA ¥#FWDOSTUP 0 ELSE SET FOR DRIVE 0 
LDAB $NUTLONO 
ERA SF 
SF1 
LDAA $F WDOSTOR1 SET FOR DRIVE 1 
LDAB  - #MUTIONI . 
SF : 
BLT STATUS 1S THE DRIVE ALREADY STOPPED? 
BEQ SE_OK BRANCH IF SO 
STAA MUTOR ELSE APPLY THE BRAKES 
STOPFWAILT 
BITB STATUS CHECK THE MUTLON BIT 
KE.Q SF _UOK BRANCH IF IT IS STOPPED 
DEX : DEC, TIMEOUT 
BNE STOPFWAIT LOOP IF NOT TIMED OUT YET 
SF _OK : : | 
LDAA $STOPPED then set everything to idle state 
STAA - MOTOR 
PULX 
PULE 
PULA 
RTS 
PET POTPVEPeTTTTrrTerrrrrTrrrrrrtrrrrrrtrrrict titi r trite testi tres creer: 


x This subroutine starts the tape moving fast in a reverse direction. 


* It assumes the tape is stopped when it is called, but it exits 
%*% with the tape in motion, this always disables writing. 
FAST_REVERSE 
PSHA 
(ST WANTED DRIVE ,D 
BNE FASTRI 
LDAA #REVFAS F0 tell the drive to move the tape 
BKA FASTR 
FASTR1 : 
LDAA $#KREVEF ASTI 
FASTR 
STAA MOTOK 
JOR PAUSET 00 let the tape get partly up to speed 
FULA 
RTS 


* fhais routine brings the tape to a halt from the reverse direction, 
x [t assumes the tape is in motion forward when it is called, and 
x exits with the tape stopped. this always disables writing. 


STOP _REVERSE 


PAGE 


1S 


FILE: TAPE_APP : pADAMNT 


LOCATION 


02A7 


O2A8 . 


02A9 
O2AA 
02@AD 
U2EO 
02ke2 
UV2BR4 
O24 
V2EB 
02k8 
V2EA 
02EBC 
02kC 
V2BE 
0200 
v2C2 
02C2 


v2aCA 


02C6 
v2c7 
02C9 
02eC9 
D2CBK 
02CD 


UeCE | 


02CF 
02D0 


ved1 
OeD1 
V2D4 
0207 
V2D7 
02D9 
V2DE 
O2DC 
2DF 
Geb 


OBJECT 


7DOQQB 
2606 
B6EC 
C608 
2004 


B6EA 
C610 


D507 
2709 
9702 


CCO000 
CE0400 


EROO 
8900 
68 
B8C0800 
2OF6 
39 


CODE LINE 


773 
776 
777 
4783 
779 
780 
781 

7b2 
783 
7B4 
785 
706 
787 
788 
789 
790 
771 

792 
793 
774 
793 
79& 
797 
798 
799 
800 
801 

Bue 
803 
804 
B05 
806 
$07 
800 
809 
v10 
811 

B12 
813 
B14 
B15 
B16 
817 
B1d 
819 
B2uU 
Bal 
B22 
Bes 
Geld 


Laer yhe ow 
O20 - 


G26 x 


bey 


82g x 
ue? x 
850 * 


BS 


HEWLETT-PACKARD: TAPE_AVP Cc) Coleco 1904 Confidential Mon, 7 Nov 1904, 16:47 


SUURCE LINE 


PSHA 

PSHE 

PSHX 

LDX #S7PUP_TIMEQUT 

1ST WANTED DRIVE ,D 

RINE SRI BRANCH IF USING ORIVE 0 

LUDAA #KREVSTOPO ELSE SET FOR DRIVE 0 

LDAB #401 LONG 

BRA SR 
SR1 

LDAA #REVSTOP 1 SET FOR DRIVE 1 

LDAB #MOTIONI 
SR 

BLiTB STATUS 1S THE TAPE ALREADY SVOPPED? 

BE SR _OK BRANCH IF Su 

STAA MOTOR ELSE APPLY THE BRAKES 
STOPRWAIT 

BiTB STATUS CHECK THE MOTION BIT 

BEW GR_UK BRANCH IF IT IS STUPPED 

DEX DEC. TIMEOUT COUNTER 

BNE STOPRWAIT LOOP IF WE HAVE TIME LEFT 
SR_OK 

LDAA #STUPPED then set everything to idle state 

STAA MOTOR 

PULX 

PULE 

PULA © 

RTS 

IF CS_MODE 
HHH HE REE IE IE EE EG IG IEG EE IE EE EG EEE DE EE EE EE I EI I EE EE 
x This routine calculates the sum of the data in the ik buffer and 
* returns it in the D register. The 2 byte buffer (same as the one 
* used for CRO calculations) is allowed to overflow 
x 
CALC_SUM 

LDb #0 

LDX #KUFFER 
CALC S2 

ADDE 0,X 

ADCA #U 

INX 

CrX #KUFRER END 

BNE CALC S2 

RTS 

ELSE 
KKK HE I EI IEE IEE IE ESE EIEIO IEEE IEEE KOK 
* This routine calculates the URC of the data in the 1K butter and 
x returns it in the D register. 
x The algorithm used here calcudates URC1I6. The memory bufter is 
* looked at bit by bit. For each bit, we EUK it with the bottom 
* bit of the URU register, The result is then EUNed with bits 
*¥ 14 and 1 of the CRC register, Finally, the CRC register is 
* shifted right, with the calculated bit being shifted into the 
* top of the register, 


PAGK 


16 


FILE: TAPE_APP : pADAMT 


LUCATION OBJECT 


O2ER 
02k B 
vV2ED 
02k.) 
VEEE 
U2EF 
O2F 1 
J2F3 
2F6 
02F8 
VeFA 


3c 
CEFFFF 


09 
26FD 
38 
39 


DCVY 
C3U350 
DDO 
8640 


CODE LINE 


832 
B35 
G44 
835 
836 
G37 
858 
bby 
840 
G41 
842 
845 
BA4 
84% 
B46 
847 
84% 
B84? 
850 
B51 
652 
853 
$34 
B55 
G56 
Bo? 
$33 
Bo? 
860 
G61 
462 
GbS 
844 
865 
G6 
867 
848 
voy 
870 
G71 
872 
v7 5 
74 
B7o 
$7 & 
B77 
R73 
G79 
tant) 
3 1 
vibe 
84.5 
ub 
BES 
GUS 
Buy7 
welds} 


HEWLETT-PACKARD: 
SUURLE LINE 


CALC_CRC 
LDD 
L.DX 
CRC_HYTE 
P GHA 
LDAA 
SiAA 
LDAA 
GIAA 
PULA 
CRC_HIT 
PSHB 
LSL 
ADCB 
LSORB 
PULB 
BCC 
EURA 
EORB 
GRC_SHIFT 
RORA 
RORB 
DEC 
BNE 
INX 
CPX 
BNE 
RTS 
ENDIF 


TAPE APP (Ce) 


$0 
#HUFFER 


BLICOUNT,D 


TEMP 
$0 


CRC_SHIFT 
#01 0000008 
#00000010B 


BLTCOUNT 
CRC_BIT 
#HUFFER_END 
CKC_BYTE 


Coleco 


1445 Confidential 


INIT THE CRE 
THE BUFFER PUINTER 


INIT 


GET THE BYTE FROM THE BUFFER 


INIT 


THE &LT COUNT 


EOR TEMP(7) AND REGH(O) LNTGO CARRY 


BRANCH IF RESULT IS ZERO 
ELSE EOR SUME CRU BITS 


SHIFT CRC, BRING IN NEW TOP BIT 


DONE ALL BITS? 
LOUP IF NOT 

ELSE POINT TO NEXT BYTE 
ARE WE DONE ALL BYTES? 
LOOP IF NOT 


Mon, 


J UGE OGIO EEE GEICO 1 6 3 
* This routine just kills some time. 


PAUSE 
PSHX 
LOX 
PSE1 
DEX 
BNE 
PULX 
RTS 


#UFFFFH 


PSE1 


SEK EUG EIIEE RIECK HEIKKI EK RK 
x This routine pauses for 100 milliseconds to let the tape get up 


*¥ to 20 ips. 
PAUSE100 
RGR 
PAUSES O 
PSHE 
PSHA 
LDAA 
Lapp 
ALDD 
STD 
LDAA 
PAUSE SUWALT 


PAUSES O 


TCSR 
TIMER 
#50000 
VER 
$00 


READ 
GE 
ADD 
PUT 


Sk 


VHLS 
CURRENT 


20 MSEC 
RESULT INTO COMPARE KEG, 


HL 


WW CHECK 


TU CLEAR FLAG JUST 
filtkR VALUE 


FOW GUPPUT 


IN CAGE 


COMPARE 


Y Nov 


19S, 


10:47 


PAE 


ly 


o@ecc 


FILE: TAPE_APP : pADANT 


LUUATION 


02F A 
02FC 
02FE 
D2FF 
0300 


0501 
0301 
0302 
0303 
0305 
0307 
030A 
030C 
O30E 
O30E 
0.310 
0312 


0313 . 


0314 


0315 
0315 
0316 
0317 
03518 
OS1E 
0318 
O031D 


OS1E % 


0520 
0321 
0322 
0323 


0324 
0324 
326 
0328 
032k 
032d 
0 $2F 
O32F 
0331 
0433 


HEWLETT-PACKARD: TAPE APP (c) Coleco 1983 Confidential Mon, 7 Nov 1903, 


UBJECE CODE LINE 


93508 
e7ru 
32 
33 
39 


36 
37 
3C 
CEV007 


2608 
oCcoY? 
C37D00 
DOVE 
8640 


9508 
27 U 
39 


BEY 
BID 
871 

Boe 
893 
B94 
89S 
BIG 
8Y7 
yv98 
Bo? 
700 

U1 

902 
903 
904 
905 
906 
YO? 
908 
vO? 
910 
911 

912 
P13 
714 
915 
916 
917 
918 
919 
720 
921 

922 
Pes 
924 
Yes 
926 
927 
Yay 
P29 
930 
931 

932 


“93S 


YS4 
YS3S 
936 
947 
938 
YS? 
940) 
PA 

942 
P43 
944 
Yas 


SUURCE LINE 


HITA YCSR 

BREW PAUSESUWALT WAIT FUR OC FLAG 
PULA 

PULB 

RIS 


XOXO OHI ERK OEE OOOO XIU IE EOI IORI 


x This routine pauses for 1 millisecond (1000 microseconds). It can 
* be used to lengthen the gap when writing. 
PAUSE1 

P SHB 

PSHA 

LDAA TCSK READ THIS TO CLEAR FLAG JUSY 1N CASE 

LDD TIMER GET CURRENT TIMER VALUE 

ALDD #1000 ADD 1 MSEC 

STD DUR PUT RESULT INTU CUMPARE REG. 

LDAA #0Cr SET BLY 10 CHECK FUR GUTPUT COMPAKE 
PAUSE1WAIT 

BLTA TCSR 

BEQ PAUSEIWAIT WAIT FUR OC FLAG 

PULA 

PULB 

RTS 
HHH KH HIE HE HE SE HE HE IG HEHE IE EE BE HEHE IE DEC I I BE IE DE DEE DG BE IE BC HE DEE EE IE IE IE I HE HE EEE EEE HE EE 


* This routine pauses for the length of time that it takes one block 
* to pass under the head at “90 ips. 
x 15000 BITS @ 714.3 bpi = 21.00 in. 
* At 90 ips, 21.00 in, travels by in W.2@22e2 sec, 
* 10/4 If DROPPED OUT TOO SUON- ADDED A LITTLE BIT MORE 
SKIP_BLUCK 
PSHA 
PSHB 
PSHX 
LDX +7 
SKIP_LOOP 
SR SKIP 
DEX 
BNE Sk IP _LOOP 
PULX 
PULBE. 
PULA 
RTS 
SKIP : 
LDAA TCSR READ THIS TO CLEAR FLAG JUST IN CASE 
Lb TIMER GET CURRENT Timer YALOE 
ADDD #52000 ADD THI NECESSARY Tih. 
STD DOR PUT RESULT INTU COMPARE REG, 
L.DAA ¥0CF GET BLY TO CHECK FOR GUOTPUT COMPARE 
SKIPWAL T ; 
KITA TESR 
HE SKLPWALT WAIT FUR UC FLAG 
RIS 


10:49 


PAGE 


ty 


FILE: TAPE_APFP : pADAMT 


LOCATION OBJECT 


0357 
035A 
0358 
035C 
O55D 
QO3SE 
OSSE 
0360 
0362 
0364 
0365 
0368 
0367 
0368 
0368 
036k 
O46HC 
036D 
OSSE 


036F 
OBOF 


US72 5 


0374 
376 
04°77 
0379 


37 

36 
9604 
D7 Ik 
DC11 
2608 
BDO SE2 
2925 


BDO2OSA 


9601 
D600 
9311 
2410 
7601 
D&00 


2 DDOD 


BDOS6&F 


7FO0OC 
32 


BDOGSA 
$2 
33 
OD 
39 


7DO010 


D30D 
DOOD 


CODE LINE 


946 
247 
748 
949 
¥50 
951 

952 
953 
954 
955 
956 
997 
9B 
994 
260 
961 

962 
963 
964 
965 
966 
967 
268 
969 
970 
971 

972 
973 


HEWLETT=FACKARD: TAPE_APP (ec) Coleco 1983 Confidential Mon, 


SUURCE LINE 


et eSe err ee Pre PeLePr seer eer recerecr er eerie res eee es CesT eee eee Leclerc l secs s: 


x fhis routine converts the logical block number in the command buffer 
* to a physical track & block number in WANTED TRACK and WANTED_BLOCK, 
CALC _PHYS 

PSHB 

PSHA 


LDAA CUMMAND _ BUFFEK+4,D COPY THE DRIVE NUMBER GVER 


STAA WANTED DRIVE, D 
LDD BLOCKS _TRACK,D CHECK BLOCKS PER TRACK FUR VALIDITY 
ENE LALC_UK BRANCH IF IT LUUKS UK 
JSR READ HEADER ELSE GET A REAL NUMBER FRUM ELTHER TRACK 
BCS CALC BAD BRANCH LF WE CAN‘T 
JSR STOP _FORWARD | 
CALC_UK 
LDAA COMMAND _BUFFER+1,D GET THE DESIRED BLOCK 
LDAB COMMAND BUFFER, D 
SUED BLOCKS_TRACK,D 18 IY ON TRACK ZERO? 
BHS CALC1 BRANCH IF NOT 
_ LDAA COMMAND _BUFFER+1,D ELSE GET THE BLOUK AGAIN 
LDAB COMMAND BUFFER, D 
SYD WANTED_BLOCK,D AND SET THE BLOCK 
iF BD_MUDE 
JSR MANGLE _NUM RE-MAP BLOCK# T0 ACTUAL # 
ENDIF 
CLR WANTED_TRACK AND CLEAR THE TRACK 
PULA ~ 
PULB . 
CLC 
RTS 
CALCI 
STD WANTED_BLOCK,D SET THE BLOCK MINUS THE EXCESS 
LDAA #1 
STAA WANTED _TRACK,D AND SET THE TRACK 
PULA 
PULB 
CLC 
RTS 
CALC_BAD 
JSR STUP_FORWARD 
PULA 
PULE 
SEC 
RTS . 
LF HY _ MODE. 


GE ICU EIEIO REECE ORIG OK 


* This routine handles the re-mapping of HD block numbers to real-live 
x useful block numbers. Currently, we just add BLOCKS _IRACK/2 to the 


0% * number, and wrap back to U0 on overflow 


MANGLE_NUM 
VST TAPE _TYPE,D Ske WHERE THE DLERECTORY 1S - 


Hew MANGL_END AT BEGINNING. GU AWAY, 
LDD BL.OLKS_ TRACK, D 

LURD DIVIDE BY 2 

ADDD WANTED BLOULK , D 

Seb WANTED &LULK,D S@V¥E IN CASE WERE DUNE 


7 Nov 19885, 


10:46 


PAGE 


1 


uy 


A? 


FILE: TAPE _APP 1 pADAMT 


LOCATION 


J375 
37D 
03 7F 
0480 
03930 
1392 
0384 
03986 
0386 


0387 
0387 
0388 
O38R 
038D 
0 38F 
0391 
0493 
0395 
0395 
0397 
0399 
D39R 
Q039B 
039C 
O39D 
O39E 
O39E 
O39F 
05A0 


O3A1 
03A1 
O3A2 
05A4 
U3A7 
USAY 
GSAB 
OSAD 
OS AF 
O3AF 
USBI 
O5R3 
O3K3 
G3E4 
OSE 


OBJECT 


F311 
2401 
39 


DCOD 
VS11 
DDOD 


39 


36 
7D000B 
2608 
7607 
Boe) 
2708 
2606 


36 
9607 
7OOVUOE 
2606 
BS0U 
2706 
2007 
8510 
26035 


OD 
32 
39 


CODE LINE 


160% 
1uu4 
100% 
1006 
1007 
1008 
1009 
1010 
1011 
1uie 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1uee2 
1023 
1024 
102% 
1026 
1027 
10268 
102? 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1057 
103% 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1u43 
104¥ 
1050 
1054 
102 
1053 
1054 
100% 
1056 
1087 
108 
1059 


HEWLETT-PACKARD: 
SUURCE LINE 


SUBD 

BHS 

RIS 
MANGL_HI 

LDD 

SUBD 

SVD 
MANGL_END 

RYS 

ENDIF 


VAPE_LAPP (ce) 


KLUCKS TRACK ,D 
MANGL_HI 


WANTED _BLOGK , D 
BLUUKS_ RACK ,D 
WANTED _BLUCK,D 


Coleco 1985 Confidential 


HAVE WI REQUESTED A NON-EXISTENT 


WE‘ RE OKAY. JUST KETUKN 


SUBTRACY BLOCKS VRACK TH GFFGET BACK 


1 HUPE YOU’RE HAPPY NOW, 


Mon, 


BLOCK ? 


HK HEH HK HH HER HK KKK MK KK KEK KK ERK RH EME KK KEK KKK KK KEK KKK KKK EK 


* This routine sees if the drive indicated by the command buffer contains a 
and set 


* cassette, It returns with the carry clear if it does, 


* if it doesn’t. 


CIP 
PSHA 
1ST 
BNE 
LDAA 
BITA 
HEQ 
BNE 
CIP_1 
LDAA 
BILTA 
- BEG 
CIP_8 
PULA 
CLC 
R1S 
CIP_9 
PULA 
SEC 
RIS 


WANTED_DRIVE,D 
cP _1 

STATUS 

#C1P0 

c1lp_9 

CiP_8 


MLSE 
#CLP1 
cC1P_9 


LOOK AT THE DRIVE NUMBER 
BRANCH IF DRIVE 1 
GET THE DRIVE O BIT 


fest IT 
BRANCH IF 1T°S 
BRANCH IF IT’S 


NOT THERE 
THERE 


GET THE DRIVE 1 BIT 


TEST IT 
BRANCH IF 17T°S 


NOT THERE 


2H GGL IEEUE UCI HEUER EIT EOE ROUGE 


x this routine looks to see if the drive indicated by WANTED DRIVE is 


* in motion or not. It returns the carry clear if there is motion, 


* and set if not. 


CHECK _MUTION 
PGHA 
LDAA 
rst 
ENE 
BRITA 
BEW 
ERA 

CHI 
HLTA 
BNE 

CMe 
SEC 
PULA 


RIS 


STATUS ‘ 
WANTED DRIVE, b 
CM1 

$HMUTIONO 

CMe 

Crs 


¥MOTLONG 
UMS 


GET THE MOTION BATS 


BRANCH FOR DRIVE 1 


CHEK HERE FUR 


DRIVE O 


ERRANUH LF NU NMUTLON 


BRANCH IF APE 


CHECK HERE FOR 
BRANUH IF fFAPE 


SHOW NU MOV LON 


TS RULLING 


DRUVE 1 
IS KUOLLING 


ry 
f 


Now 


198, 


10:48 


PAGE 


FILE: TAPE_APP : pADANT 


LUCATION 


03K6 
O3kKkS 
V2E7 
04588 


0 3E9 
O39 
USEC 
O3BE 
03C1 
03C4 
V3C7 
03C9 
O3CC 
O%CF 
vsD2 


03D4 


O3D7 
03D9 


OSD 
03DC 


03DD 
O4SDD 
OJEG 
OSIE0 
0 JE 1 


U4E2 
VSt2 
OSES 
Q3ES 
03ES 
O3EA 
O3ED 
OSEF 
VSF2 
QSFS 


DEJEUT 


oc 
Je 
39 


CEV8O0 


DF 04 

CE0400 
£D0440 
CE0017 
DFO4 

CEO01S 
BD0440 
BDOBAL 


250? 


RDO02D1 


9315 


2605 


oc 
3°? 


BDO2SA 


oD 
39 


BDV238 


BDO SAI 
2551 
CE0020 
DF OA 
CEQO1? 
BDOAAD 
2544 


CODE LINE 


1060 
1061 
1062 
104% 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
10738 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1098 
10%6 
1097 
1098 
1099 
1100 
1101 
1102 
1104 
1104 
110% 
1106 
1107 
1108 
1109 
1116 
1111 
Tile 
1113 
1114 
1115 
1116 


HEWLETT-PACKARD: 


SUURLE LINE 


CN3 
CLC 
PULA 
RVS 


TAPE LAPP 


(c) Coleco 19645 Confidential 


Non, 


SHOW MOTION 


EOE UIE IMI IUIOO IORI IIEIRIGI III KE EOE IIE OEE KEG 
x fhis subroutine reads a block of data from tape into the buffer. 

* It assumes the tape is in the gap between the header and the data 

* when it is called, and exits with the tape stopped. 


READ_BLOCK 
LDX 
Six 
LDX 
JOR 
LDX 
STXx 
L.DX 
JSR 
JSk 
BCS 

* ISR 
IF 
JSR 
ELSE 
JSR 


ENDIF . 


SUED 
BNE 
LDD 
STD 
CLC 
RTS 


we wo 


RB_ERROR 
JGR 

RE_ERROUR2 
GEC 
RTS 


#HUFFER_END. 
STUFF _END, D 
#EUF FER 
READ_STUFF 
#CRC_END 
STUFF _END,D 
#CRE 
READ_STUFF 
CHECK MOTION 
RE_ERROR 
S1OP_FORWARD 
CS_MUDE 
CALC_SUM 


CALC_CRC 
CRU,D 
RE_ERROR2 


WANTED_BLOCK 
HAVE_BLOCK 


S1GP_ FORWARD 


INIT THE END POINTER 
INLT THE START POINTER 
READ THE BLOCK 

INL) END POINTER AGAIN 
INLT START POINTER AGAIN 
READ THE CRC BYES 

SEE IF THE TAPE JAMMED 
BRANCH IF SO 

ELSE STOP THE TAPE * FACE * 
[4] 

GET THE CRC 


COMPARE IT TG THE GNE WE READ 
BRANCH IF NUT A MATCH 


SHOW NO ERROR 


TURN OFF THE MOTORS 


SHOW THERE WAS A JAM 


YOK OK IIHF IIHR IHIEIUIEIIIEI IIE OOOO UO OOOO IIE 
* This routine reads the next block header from tape into the header buffer, 
* It assumes the tape is stopped when it is called, and exits with 

* the tape moving and in the gap between the header and the data. 
x 
x 


If there was no trouble, 


the carry is clear. 


lf it finds that the 


tape jammed while it was reading, it returns with the carry set. 


READ HEADER 
JGR 

READ_H2 
JSR 
ROS 
LX 
sTx 
L.DX 
JOR 
RUG 


GU_FURWARD 


CHECK MOTLUN 
RMS fALLED 
#HLAD END 
STUFF_END, D 
#HEAD_ BUF FEN 
READ_S TUFF 
RH STALLED 


SEE TF JHE TAPE 1G REALLY MOVING 
BRANCH JF NUE 
SET THE END AUDDKIEGS 


THE START ADDRESS 
(HIE HEADER 


SET 
READ 


7 Nov 1964, 


1u:49 


PAG. 


7 
bw 


1 


om 


FILE: TAPE_APP: pADANE 


LOCATION 


O4SF7 


OSFA 
OSFD 


0400 


0402 
0404 
0407 
0409 


G40C 
o4ac 
DADE 
040F 
0410 
0412 
0414 
0416 
0418 
O41A 
v4ic 
O41E 
0420 
0422 
0424 
0426 
0427 


0429 
v42B 
042E 


0430 
432 


0434 
V437 
0439 
vasa 


OBJECT 


7F 0010 


FC0017 
BS4AZS7 


270A 


DC17 
BS4B45 
26dC 
700010 


pct? 
43 

33 

OS1k 
26Di 
9617 
9BR18 
9SBLY 
SERIA 
DEL EE 
RIC 
OBID 
9RIE 
SRIF 
4C 

26ERC 


pei 


C30001 
DDVE 


DCib 
BO11 


BDIVSAL 
2502 
0c 

359 


CODE LINt 


1117 


1118 * 
1119 x 


1120 
1121 


1122 * 


1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1141 
1142 
1133 
1134 
1135 
1136 
1137 
1138 
113% 
1140 
1141 
1142 
1143 
1144 
11435 
1146 
1147 
1148 
1149 


1167 
1168 
1169 
1170 
LL 4 
1172 
1173 


HEWLETT-PACKARD : TAPE _APP (c) Coleco 1283 Confidential Mon, 7 Nov 1°43, 


SOURCE LINE 


* Now that we have read some data, let’s see if it really was a 
* block header. If 60, the first two bytes should be the block 
x identifier, the third byte should be the complement of the 
* fifth, the fourth should be the complement of the sixth, 
* and the sum of all 9 of them should be ~1. 

IF bD_ MODE 

ULR fAPE_TYPE,D 

ENDIF ; 

LDD Ht AD_ BUFFER GET THE FIRST TWO BYTES 

SUBD #HEAD_ ID IS THIS A HEADER? 

IF BD_MODE 

BEY VALID HEAD 

ELSE 

HNE READ_H2 | TRY AGAIN IF NOY RIGHT 

ENDIF 
* TRY AGAIN- USE ALTERNATE HEAD_ID 
IF BD_MUDE 

LDD HEAD_BUFFER ,D 

SURED #HEAD_ID2 

BNE . READ_Hd 

INC TAPE_TYPE,D 

ENDIF 
VALID_HEAD 

LbDD HEAD BUFFER+2,D CHECK THE COMPLEMENTARY BYTES 

COMA - 

COMB 


SUED HEAD _BUFFER+4, D 
BNE .READ_H2 TRY AGAIN IF WRONG 
LDAA HEAD BUFFER ,D CALCULATE THE SUM 
ADDA HEAD. BUFFER+1,D 
ADDA HEAD_BUFFER+2, D 
ADDA HEAD _BUFFER+3,D 
ADDA HEAD BUFFER+4, D 
ADDA HEAD BUFFER4+S, D 
ADDA HEAD BUFFER +6 ,D 


ADDA HE AD_BUFFER+7,D 

ADDA HEAD BUFFER +8, D 

INCA . 

BNE READ _He BRANCH IF SUM IS WRONG 


x AS a courtesy to the other subroutines, we will put the number 


x of the next block into BLOCK NUM and the number of blocks per 
® track into BLOUKS_ TRACK. 

LDD HEAD _ BUFFER+2 , D 

ADDD #1 

GID 2 BLOCK NUM, D 

Lvb HAD BUPFER +6, D 

SUD BLUCKS  TRAUK , D 

JOR CHECK MOT LON GEE TF THE TAPE JAMMED WHILE Wh WLNL BUSY 

BUS RH_ > FALLED BRANCH IF SO 

CLO SHOW NU JAM 

RFS 
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FILE: TAPE_APP : pADAMT 


LUCATION O8JEUT 


043B 
0438 
VASE 
O43F 


0440 


0440 
0442 
0444 
0447 
0449 
0448 
V44E 


0D44D 
O44F 
v4Se 
0434 
456 
0456 
0458 
045A 


045 
0450 
045D 
V4SF 
045F 
0461 


0463 
V465 
0466 


U468 


046A 


V4aC 


046E 
V46F 
04°70 
D471 
0472 
V473 


BDU26A 
OD 
3? 


9603 
B4F ER 
7DV00C 
2702 


BAD4 


9703 


8609 
7D000B 
2702 


8610 


9720 
8608 
9703 


CODE LINE 


1174 
1175 
1176 
1177 
117% 
11iv9 
1180 
1181 

1182 
1183 
1164 
1185 
116 
11987 
1188 
1189 
1190 
1191 

1192 
1193 
1194 
1195 
1196 
1197 
1196 
1199 
1200 
1201 

1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 

1212 
1213 
1214 
1215 


1216 


HEWLETT-PACKARD: TAPE_LAPP (ce) Co 


SUURCE LINE 


RH _ STALLED 
JSR SUP _ FORWARD 
SEC : 
RIS 
Pore er eee Storer cere reree cee eres. 


* This routine will read a block 
* or CRC bytes) from a drive. 1 
* memory buffer address in X and 
READ_S TUFF 


* FIRST We MUST SET THE TRACK NU 


L DAA MISC 
ANDA #0FFH-TRACK 
TST WANTED _ TRACK ,D 
BEQ TK_OK 
ORAA #TRACK 

TK _OK 
STAA MISC 

* THEN WE SET THE MUTION BLT 10 
LDAA #MO fF TONO 
TST WANTED _DRIVE,D 
BEQ DR_UK 
LDAA #MOTION1 

DR_OK 
STAA MOTION _BIT,D 
LDAA #3 
STAA BLTICOUNT,D 

x The first thing we have to do 


* We just keep shifting bits int 


* the sync. 
CLRA 
RS_ SYNC 
LDAB STATUS 
RS_CLOCK1 
CMPB STATUS 
BREW RG_ CLOCK 1 
* MAKE SURE WE SPEND AT LEAST 42 
EUR E LAST SEEN, D 
Ll D 
LDA STATUS 
STAB LAST SEEN, D 
BLT MOTION BI), D 
BEW BS OSTALLED 
NUP 
NUP 
NUP 
NOP 
NOP 
NOF 


leco 1985 Confidential 


TURN OFF THE MOTORS 
SHUW THERE WAS A JAK 


EA KI IEE IEE IE DEE HE KE EE EE IE IE IE KKK 
of stuff (file header, data block, 

t should be called with the start 
the end address plus 1 in STUFF_END, 


MHER , 

GET CURRENT STATE 

ASSUME WE WANT TKACK ZERU 
SEE IF WE WERE RIGHT 
BRANCH IF SO 

ELSE CHOOSE TRACK 1 . 


WATCH, 
ASSUME IV WILL HE DRIVE 0 


BRANCH IF WE WERE RIGHT 
ELSE CHANGE GUR MIND(S) 


INIT fHE COUNTER 


is look for a SYNC byte. 

o a byte (in A) until we recognise 
SET TO NUN-SYNC 

3 GET INLTLAL INPUT STATE 


3 COMPARE TO CURRENT STATE 


Non, 


vy 


Nov 1965, 


3 3 LOOP UNTIL We SEE CLOCK EDGE UR MOTIUN CHANGE 


UGEC LRFORE Wk GO BACK TU RS UGYNC AGAIN 


6 GRAH THE PREVLUUGS DAVA BLT 
Y STURE Lf AWAY 

12 DID WE STALL? 

13 

18 

21 IF SU, SILNAL ERROR 

23 We CANT LEAVE LUGP UNTIL AT LEAST 
25 42 uSEC HAVE GUNE BY 

7 

ey 

31 

33 - 


REPS PPh Me Wee 
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FILE: TAPE_APP : pADANT 


LOCATION 


0474 
0475 
0476 
0478 
047A 


047C 
047C 
DAZE 
U47E 
v480 


0482 
0484 


0485 
0487 
0489 


VABE & 


043) 


V4P0 | 


0492 
v4Ad4 
0496 
0498 
0499 


D49E 
0498 
049C 
049D 
V49E 
04A0 


04462 
VAAS 
04A7 
V4A8 


DAAS 
v4A9 
04AC 
O4AE 
4&0 
04k2 
V4ES 
0485 
0468 
O48 
OAD 
040 
v4Ce 
04C4 
v4C4 
04C7 


OBJECT 


01 
9C0A4 
26DA 


EDOSAI 
2502 
oc 

39 


BD02GA 
bei 
2714 
9S0D 
BD0294 


BDOGIS 
BDI SAI 
acoA 
830001 
2bF 3 
2005 


RDO210 


CODE LINE 


1231 NQF 
1242 NUP 
1233 KRN 
12354 UMPA 
1235 ENE 
1236 

12357 RS_READ_HIT 
1248 LDAB 
125% RS_CLOCK2 
1240 CMP RE 
1241 BREQ 
1242 

1243 

1244 

124% EOGRB 
1246 LSOLD 
1247 

1248 LDAR 
124» STAB 
1250 HITE 
12351 KEW 
1232 DEC 
1253 ENE 
12354 STAA 
1255 LDAA 
1256 STAA. 
1257 INX 
1258 BRA 
1209 

1260 RS_WAIT 

1261 NOP 
1262 NUP 
1263 NUP 
1264 CPX 
1263 BNE 
1266 

1267 JSR 
1268 KCS 
1269 CLC 
1270 RTS 
1271 

1272 RS_STALLED 
1273 JSR 
1274 1.1) 
12/75 iE 
12/6 SUBD 
1277 JoR 
1270 RS_BACKING 
1279 JS 
Legu JOR 
Lleol BUS 
1leue SUBD 
12ags ENE 
1284 BRA 
1265 REALLY LOS) 
12U6 JSR 
1287 RS_EX11 


SUURCE LINE 


HEWLETT-PACKARD ; 


TAPE_LAPP (c) Coleco 1905 Confidential Mon, 7 Novy 
2 3h 
2 37 

4 3 40 

#S7N 2 42 HAVE WE FUUND SYNC YET? 

RG _SYNC 3 45 BRANCH FUR ANUTHER BLY lr NOT 

STATUS 3 GET INITIAL INPUT GIATE 

STATUS 3 COMPARE TO CURRENT STATE 

RS _CLOCK2 3 3 LOOP UNTIL WE SEE CLUCK EDGE OR MUTION CHANGE 


* MAKE SURE WE SPEND AY LEAST 42 UGEC BEFURE WE GO BACK TO RS_READ_BLT AGAIN 


N 


LAST_SEEN,D 


STATUS 

LAST _SEEN,D 
MOTION_B1T,D 
RS_ STALLED 
BLTCOUNT 
S_WALT 

0,X 

#8 
HITCOUNT, D 


RS_READ_B1T 


STUFF _END,D 
RG_READ_HLT 


CHECK MOT LON 
RS_STALLED 


STUP _F ORWARD 
BLUCKS_ TRACK , D 
REALLY LOST 
WANTED BLUCK , D 
FAST REVERSE 


SKIP _ BLOCK 
CHECK MOTION 
RS EXLT 

#1 

RG BACKING 
RSE ALT 


REWIND 


3 6@ GET THE PREVIOUS DATA BIT 
3 9 STORE IT AWAY 


12 

18 SAVE FUR NEXT BIT 

16 IS TAPE STILL MUVING? 

@1 KRANCH IF NOT 

27 ARE THERE ANY HITS LEFT IN THE PREV, BYTE? 
$0 HRANCH IF YES 

34 ELSE SAVE THE PREVIOUS BYTE 
$6 RE-INIT B81 f COUNT 

39 

42 INC. DATA PUINTER 

“45 BRANCH FOR ANOTHER BIT 


OW Ph & & & & WO 


$2 

34 

36 

42 19 THE BUFFER FULL? 

45 GET ANOTHER Bit Tk NOT 


Gi o fo To fo 


SEE TF THE TAPE JAMMED WHILE WE WERE BUSY 
BRANCH IF SO 

ELSE SHOW NO JAM 

RETURN 1O CALLER 


YURN OFF THE MOTURS 
EIGYUR OUT HUW FAR TO BACK UP 
Wi DON?T SEEM 7G KNUW HOW MANY KLOCKS/TRACK 


GENTLEMEN, STAKT YOUR ENGINES 


FULLY REWOUND? 


URE MORE BLOCK 


1985, 


10:50 
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FILE: TAPE_APP : pADAMT 


LUUATION 
0407 
DACA 
04CB 


v4CC 


vaACC 


04CE 
04D0 
04D3 
04DS 
04D7 
VAD? 


04D9 
O4DC 


D4DE 
04E0 
V4AE2 
04E4 


04E6 
VAES 
04E8 
DV4AEA 


GAEC 
O4EC 
DAEF 
04F2 
DAFA 
U4FS 


641-8 
BAF R 
Q4FE 
0301 
0502 
O50 
0206 
OS09 
Q&S0A 
508 
OS OE 


ORJEUE CODE LINE 


BDO 2AY 
0D 
39 


Db60 
C4FR 
7D000C 
2702 
CAD4 


D703 


7DOO0R 
2606 


9602 
84EF 
9702 
2006 


9602 
B47F 
9702 


BDO 301 
7FOUDUD 
8416 
9701 
D603 


CEO000 
BDOS/ 3 
7F0000 
| 
01 
RDOS?S 
7F0000 
01 
01 
RDOG?73 
7FO0000 


HEWLETT-PACKARD: JAPE_LAPP (tc) Coleco 1904 Contidential Mon, ¥ Nov 19835, 


SUURLE LINE 


1288 JSR SVOP REVERSE SOP THR MOTORS 

1289 SEC SHUW fIERE Was A JAM 

1290 RIS 

1291 

VLD HR KK HH IK IIE IEE EE OIE IE IE I EE IE I DE SE EI IIE EE IE 
1294 * This subroutine writes the 1K bytes of data in the buffer to a 
1294 * block on the tape. Note that WRITE_HLUCK and WRLIE_HYIE, as a 
1295 * team, agree to use B only as an image of the port. This routine 
1296 *® assumes the tape is in the gap between the header and the data 
1297 * when it is called, and it exits with the tape stopped. 

1298 * This routine looks at WANTED_DKIVE and goes to WKITE_BILULKO or WRIVE_HLOCK1 
1299 ® accordingly. 

1300 

1301 WRITE_BRLOCK 

1302 

1303 * FIRST Wk MUST SET THE TRACK NUMBER, 

1504 LDAB MISC GET CURRENT STATE 

1305 ANDB #0FFH-TRACK ASSUME WE WANT TRACK ZERU 

1306 TST WANTED TRACK, D SEE IF WE WERE RIGHT 

1307 bEq TK_GK_TUO BRANCH IF SO 

1408 DRAB # TRACK ELSE CHOOSE TRACK 1 

1309 TK_OK_10U 

1410 STAB MISC 

1311 

1312 TST WANTED_DRIVE,D 

1413 BNE WRITE _SLOCKi BRANCH IF USING DRIVE 1 

1314 

1315 LDAA MOTOR 

1316 ANDA $#WENABLEO TURN ON WRITE ENAHLE 

1317 STAA MU TUR 

141g BRA WRITE _ COMMON 

1319 

1320 WRITE_BLOCK1 

1421 LDAA MUTOR 

1322 ANDA $WENABLEL TURN ON WRITE ENABLE 

1423 STAA MOTOR 

1324 

14235 WRITE_COMMON 

1326 JSR PAUSEI LEAVE A LITTLE ROOM 

1427 CLR ZERO_ BYTE SEf UP THE PREAMBLE BYTES 

1326 LDAA ¥SYN 

1429 SAA SYNC _ BYTE ,D : 
1336 “LDA MISC GET Thk IMAGE OF THE PUKT WLTH WDATA IN 11 
1331 

14332 * Ready to start -- write a couple of zero bytes and the sync byte. 
13.43 

1334 LDX CERO BYTE 

1435 Jor WRITE BYTE 

1334 CLR ZERU_ BYTE é 

1447 NUP 2 

133% NOP 2 

1459 JOR WRITE BYTE 6 

1340 CLE ZEMU_ BYTE & 

1541 NUP 2 

134¢2 NOP rd 

1443 JOR WRITE BYTE 6 

1344 CLE Zk RO_BRYTE & 


10:51 
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feo 


ar 


ry 
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a) 
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FILE: 
LOCATION 


S11 
a512 
OS13 
0516 
O519 
OS18 
OS1C 
OS1D 
0520 


§U23 


OS4A 
QOS48 
OS4C 
OS4E 
0550 
O851 
0553 
0854 
OSS 
3g? 
OoSA 
VSSE 
Q28C 
SSD 
OS SE 
OSSF 


O361 
O63 
US6S 
267 
OS6A 


VS6C 
056D 


DETECT 


01 

01 
RDOS73 
CEd0ul 
@Q1FE 


BOOS? S 
CE0400 
2irFeE 
01 

01 


BRDOS73 
08 
8C 0800 


E 26F7 


CEO000 


Bold 


CE0001 


SD1IC 


F702 
BDOSAL 


2502 


OC 
3° 


TAPE_APH : pADAMT 


CUDE LINE 


1345 
1446 
1347 
1348 
134Y 
1450 
1351 

1452 
1353 
1404 
1355 
1456 
1357 
1308 
1359 
1460 
1361 

1362 
1363 
1364 
14635 
1366 
1467 
136¢ 
1369 
1370 
137i 
1372 
1373 
1374 
1375 
1376 
1377 
1370 
1479 
1360 

1$01 

13¢2 
14b3 
1364 
146% 
1386 
LSur/ 
1386 
Laue 
1390 
1491 

1392 
1473 
1394 
149 
1394 
1S97 
139% 
14°99 
1406 

1401 


HEWLETT-PACKARD: 


SOURCE LINE 


NOP 
NUP 
JSR 
LDX 
BRN 
NUP 
NOP 
JR 
LDX 
FERN 
NOP 
NOP 


WENEXT BYTE 
JSR 
TNX 
CPX 
BNE 


LDX 
HSR 
CLR 
NOP 
NOP 
BSR 
LDAA 
STAA 
LDX 
NOP 
BSR 
LDX 
NOP 
NOP 
HRN 
EGR 
1NX 
HRN 
NOP 
NUP 
BSR 
L. DX 
NOP 
NUP 
NOP 
NUP 
NOP 
fOR 


L DAA 
URAA 
6b1TAA 
GK 
BUS 


x JSR 


UL 
KVS 


TAPE LAPP (a) 


WRITE _BYTE 
#5YNC_BYTE 
$ 


WRITE_BYTE 
#HUL FER 
+ 


URITE_BYTE 


#BUFFER_END 
WENEXT_BY CE 


#2ERO_BYTE 
WRITE_BYTE 
ZERO_BYTE 


WRITE_BYIE 
#GYN 
SYNC_BYTE 
#SYNC_BYTE 


WRITE BYTE 
#ERC 


$ 
WRITE BYTE 


H 


WRITE _ BYTE 
$ZERO_ BYTE 


WRITE BYTE 


MOTOR 

#0DI GABLE 
MUTTUR 

CHECK MUTLON 
WED TALLED 
SiUP FORWAND 


Golece 1984 Confidential 


fo 2 gi! o fe po W Gio folo 


WRITE A DATA BYTE 
INC. THE PUINTER 
I& THAT THE END GF 
BRANCH IF NUT 
WRITE A ZERO BYTE 


AND WRITE ANOTHER 
WRITE A SYNC BYTE 
WRIfeE THE CRC 
WRITE 


THE CRC 


WRITE ANUTHER 


Gifs rg ho pete OP WW OW PR AR MW BROWN Oe Ae 


DISABLE WRITING 
Skee Lk THE TAtE 
BRANCH ITF SU 

ELS: GSIUr THE TAPE. 
SHOW THERE WAS NU 


Mon, 


DATA? 


HIGH BYTE 


LOW BYTE 


ZERO AS JUNK 


JAMMED WHILE WL WkRE BUSY 


* FAC *® 
JAN 


7 Nov 198%, 


16°51 


FAGL 


es 
2o 


sy, 


FILE: TAPE_APP i: pADAMT 


LOUAT ION 


O56E 
OSE 
0371 
G972 


0573 
0%73 


US7S . 


0377 


0579 2 


0378 
0378 
057D 


OSYF 
0580 
0582 
0582 
0503 
0584 
0585 
0586 
0587 
0588 


OS8A i 


Q58c 
OSBE 


vo90 
0590 
0891 
O92 
OB9S 
O94 
vse 
OX 97 
09"B 
Oo99 
GS9A 
OSE 
io 99C 

PD 
OS9E 
OOF 
GAD 


ORJEUT 


BDOLO6A 
OD 
39 


CUDE Live 


1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 

1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 

1422 
1423 
1424 
1425 
1426 
1427 
1424 
1429 
1430 
14351 
1432 
1433 
1434 
1433 
1436 
1437 
143% 
1449 
1440 

1441 

1442 
1443 
1444 
1443 
1446 
1447 
1448 
1449 
1450 
1451 

1452 
L4o3 
1454 
1485 
1456 
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SUURCE LINE 


WHSTALLED 
JSR SiG FORWAKD TURN GFF THE MOTORS 
Sec SHOW THERE Was A JAM 
KIS 
x This subroutine writes out the byte pointed to by X. Note that it 
* zeroes the memory Location and the clobbers the registers. it assumes that A 
*% is already set up with the port state, We write the first clock edge as soon 
* aS We Can $0 aS to Maximize tine available to the calling routine, 
* If the caller wants t6 write two adjacent bytes, it has 16 cycles 
* between calls Cincluding the JSR or BSR). 
WRITE_BYTE 
EGRB #UTDATA 2 FLIP THE DATA BLT 
STAB MILSe 3 WRITE IT OUT YO MAKE CLUCK EDGE 
Ki (PHS eee eee eee ee TAKE EXACTLY 31 CYCLES 10 MAKE DATA EDGE 
LDAA #0 2 SET THE BIT CUUNTER 
HRA WHENTER 3 ENTER THE NORMAL LUOP 
WRITE_B1LT 
EURB SW TDATA 2 FLIP THE DATA BIT 
STAB MISC S WRITE IT OUT 10 MAKE CLOCK EDGE 
Ko BSR S eee Sea TAKE EXACTLY 31 CYCLES TU MAKE DATA EDGE 
NOP 2 
BRN $ 3 : 
WRENTER 
NOP 2 
NOP 2 
NOP 2 
NOP 2 
NOP 2 
NOP 2 
LSet 0,X . & ROTATE OUT THE DATA BIT 
BCC WEZERO 3 BRANCH IF NU DATA EDGE NEEDED i 
EGRE FuUTDATA @ ELSE FLIP THE DATA BELT 
STAB MISC S WRITE TT OUT TO MAKE DATA EDGE 
KP. - {Sao eee TAKE EXACTLY 39 CYCLES TO MAKE CLOCK EDGE 
WEBOTH 
NOP 2 
NUP 2 
NOP 2 
NUP 2 
DECA 2 DEC. THE B1T CUUNT 
BER WEGONE S EXAf GF FINISHED THIS BYTE 
NUP 2 
NUP 2 
NOP Fo 
NUP 2 
NOP 2 
NUP 2 
NOP e 
NOP 2 
NOP 2 
BRA WRITE BLT 3S GO WRITE OUT THE Next BIT 


1457 *® This bit of code must take the same time as the bit which writes the 


1456 


& 


data edge for a UNE bit. 


1983, 


10; 


va) 


1 


PAGE 
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LUCATION OBJECT CODE LINE SUURUE LINE 

1459 

NSAL , 1466 WRZERO 

O5A2 O01 1461 NOP 2 

OSAS 20E 1462 ERA WOBUTH 3 GO RE-JOIN fFHE MAIN CODE 
1463 

OSAS 1464 WEDONE 

OSAS 39 1465 KTS a 


Errors= 0 


a tS 


C: 


® ¢ 


ie 
Me oe : 


FILE: 
LING 


261 
262 
599 
209 
216 
24 
222 


aoe 


aud 
¥76 
984 
260 
950 
B13 
810 
482 
393 
399 
1045 
S41 
350 
327 
364 
1019 
162 
167 
1027 
1031 
1035 
203 
1033 
1056 
1040 
469 
141 
244 
24% 
208 
137 
142 
192 
189 
1ys 
i974 
190 
140 
144 
14% 
146 
207 
350 
335 
220 
1201 
473 


483 | 
495 


TAPE_APP :pADANT 


SYMHGL 


APP_INIT 
ATP_APP 
BACKUP 
BD_MUDE 
BITCOUNT 
BLOCKS TRACK 
BLOCK _NUM 
BUFFER 
BUFFER _END 
CALC1 
CALC_BAD 
CALC_OK 
CALC_PHYS 
CALC $2 
CALC_SUM 
CANT_READ 
CHECK _1 
CHECK 2 
CHECK MOTION 
CHK 0 
CHKO_1 
CHK1_14 
CHK_SIG 
CIP 

CIPO 

CIP1 

CIP_1i 
CIP_8 
cCIP_9 
CLEAR_RAM 
CMI 

CH2 

CM3 
CMD_COMP 
COMMAND_ BUFFER 
CRC 
CRC_END 
CS_MUDE 
CS_WORD 
CURRENT_RAM 
C_COMMAND 
C_READ 
C_RESET 
C_REWIND 
C_WRITE 
DATA_BUFFER 
DDR1 

DDR2 

DDR4 
DISAH_0 
DRO_OK 
DR1_OK 
DRIVE _NUM 
DR_OK 
ERR_1 

ERR_ COMMON 
ERR_END 


CROSS REFERENCE TABLE: 


TYPE 


DOP DMD DPIPPMM PSSM UTCVUVTUTGUP SD TVVVTCVCUUT TT UT UT UP Pes Ue Dts 


% Ose tT 


~~ t 


PAGE 2Y 
REFERENCES 


400 

134 

570 

235,968, 991,1124,1129,1135 

1204, 1252,1256 

594,955, 963,999,1003,1008,1168,1274 
565,620,664, 1165 

253,012, 1073,14553 

817,1071,1361 

964 

958 

956 
371 

818 

429,456, 1083 

437 

391 

397 

582 ,607,658,1079,1110,1170,1267, 1280, 1596 
326 331,334,338 

346 

323 

349 , 354,357,361 

390, 396,414,444 

343,1024 

319,1029 

1022 

1026 

1025 ,1030 


1049 

1051 

1052, 1055 

376,384,434 

422,424, 426,474, 476,478,479, 953, 961, 962,965, 766 
433,460 ,1077,1087,1375 

1075 

428,455, 804,1082 


291 ,353,356,423,425, 427,447,475 ,477 
3735 
378 
369 


380 


269 
272 
275 


344 

30 

533,545 
1199 

490 
471,461,484 
492 


Cc @ C 


FILE: TAPE_APP :pADAMT 


LINE#  SYMBUL. 
413 EXEC_R 
467 EXEC RESET 
44% EXEC_W 
709 FASTF 
707 FASTFI 
763 FASTR 
761 FASTR1 
701 FAST_FURWARD 
75% FAST REVERSE 
531 FIND AGAIN 
522 FIND _BLOGK 
425 FIND_BLUK 
5343 FIND HEAD 
241 FIND_TRIES 
576 FORWARD 
635 FOUND IT 
175 FWDFASTO 
176 FWDFASS1 
580 FWDLOOP 
173 FWDSLOWO 
174 FWDSLOWI 
179 FWDSTUPO 
180 FUDSTOP1 
592 FWD STALL 
682 GOFI 
684 GOF2 
552 GOT_HEAD 
675 GO_FURWARD 
568 GO_LOOK 
246 HEAD_BUFFER 
247 HEAD_END 
200 HEAD_ID 
201 HEAD _ID2 
S01 INIT_TIMER 
624 JUST_AHEAD 
22% LAST SEEN 
149 LENGTH UF_10_$f 
374 MAIN 1 
301 MAIN LOOP 
996 MANGLE_NUM 
1010 MANGL_END 
1006 MANGL_H1 
147 MISC 
160 MOTIUND 
161 MOTIONI 
248 MOTIUN_BIT 
146 MOTOR 
317 HOTURS_UKAY 
160 M_DATA 
187 M_SIG 
136 NIM BLOCK 
So8 NOTLEf 
485 NO_EILOCK 
472 NO_CASSETIE 
185 OCF 
1o2 OCR 
183. P3CSR 


\ 


CROSS REFERENCE TALE: PAGE 30 


rYPE 


DPPrTIUVrMmMeT Per rrwtrerrtTreome vVeEpPr eer Vette TeepPPPrPrepyPtte tet tt Set TS tT tt tt 


REFERENCES 


379 
370 

381 

706 

704 

760 

758 

578 

596 ,603,1277 

527 

419,462 

622,633 

548,613 

524 ,526,587,612,621,632 
571,873 

629 

705 

708 

5u5 

175,680 


176,683 


727 

731 

551,583,626 

679 . 

681 

550 

1108 

566 | 
553,628,1114,1127,1136,1142,1145, 1147, 1148, 1149, 1150, 1151, 1152, 1153, 1154,1155,1163,1167 
1112 

1128 

1137 

296 

567,574,630 


1219, 1222,1245,1249 


372 

366,512 

969 

998 

1004 _ 
318,1028,1168,1194, 1304, 1510, 1530,1416, 1423, 1447 
$45,728, 7B2,1050,1197 

322,732,786, 1054, 1200 

1202,1223, 1250 

267 , 65%, 68, 689,710,736, 744, 764,790, 79H, 1315, 1517, Ded, 1525, 1593, 159% 
304,407,513 

377 

186,365,496 

187 


[a 
255 


373,420,463 

415,445 

305, 887,706,940 
311,506, 806,905, 935 


BE, 


i 


2) 


FILE: TAPE_APP :pADAMT 


LINE + 


845 
B99 
878 
907 
880 
888 
868 
243 
ise 

1094 

109% 
156 
163 
164 

1070 

1109 

1107 

1185 


242 


1260 
BO3 
155 
543 
PAS 
730 
742 
23% 
PAS 
941 
Pet 
926 
487 
784 
796 


250 


SYMBOL 


PAUSE 
PAUSE 
PAUSE100 
PAUSEIWAIT 
PAUSESO 
PAUSES OWAIT 
PSE1 
QUIET_fiME 
RAHCR 
RE_ERRUR 
RE_ERROR2 
RDATA 
RDDATAO 
RDDATAI 
READ_BLUCK 
READ_H2 
READ_HEADER 
READ_S{UFF 
READ_TRLES 
REALLY_LOST 
REPEAT 
RETRY 
REVFASTO 
REVFAST1 
REVL.OOP 
REVS UP 0 
REVS TOP 1 
REV_STALL 
REW 

REW1 

REW2 

REWIND 
RH_STALLED 
RMCR 

RS_ BACK LNG: 
RS_CLUUK1 
RS_CLOCK2 
RS_EXIT 
RS_READ_BIT 
RS STALLED - 
RS_ SYNC 
RS_WALT 
SANE TRACK 
SCSR 
SET_VARS 

SF 

SFI 

SF_OK 
SHUT _ DOWN 
SKIP 
SKIPWALI 
SKIP_BLUCK 
SKIP_LOUP 
SR 


SR_OK 
STACK 


TYPE 


CROSS REFERENCE TABLE: PAGE 


REFERENCES 


656,661,662 
1326 

690 ,691,711,765 
909 

879 

890 

870 

507 


1080 
1086 
498 


421 
1138,1146,1157 
549,625,957 
1074,1078,1115 
417,435 

1275 

289 

436 

650,759 
653,762 
597,610 

781 

78% 

608 

651 

649 

659 

392,498, 1286 
1111,1116,1171 
278 

1283 

1215 

1241 
1281,1284 
1259, 1268 
1224,1251,1268 
1235 

1253 

537 
281,497,500 
534 

729 

726 

755,739 
303,312,508 
927 

94% 

5681 ,606,1279 
929 

783 

780 

7B , 793 

264 


St 


FILE: TAPE_APP : pADANT CROSS REFERENCE TABLE PAGE Se 


LINE SYMBUL. TYPE REFERENCES 
249 STACK_SPACE D 
149 STATUS A 321,342,734, 734, 760, 792,1025,1047, 1212, 1214, 1221, 1246, 1240 ,1246 
237 STOPFWALT P 744 ; 
183 STOPPED 266,743,797 
Y91 STOPRWAIT 795 


720 STOP FORWARD 
Y74 STOP REVERSE 
202 STOP_TIMEOUT 
217 STUFF_END 
199 SYN 

214 SYNC_EYTE 


316,557 , 586,593, 641,959,985, 1095, 1176,1273, 140% 
611,618,660,1288 | 
724,776 

1072,1076,1113, 1264 

1234 ,1428,1370 

1329 ,1448, 1371, 1372 


19% S_HADBLK 483 

196 S_NUBLUCK 486 

198 S_NODRIVE 324,347 

197 S_NOTAPE 328,537, 351,360,480 
194 §_OK 339,362,470 


158 TAPE_SFATUSO 
138 TAPE_STATUS1 
237 TAPE_TYPE 
150 TCSR 

157 TDATA 

213 TEMP 


348, $52, 359,363,491 

325, 324,336,340 ,494 

997,1125,1139 

306,308, 503,883,689, 902,908, 956,942 


151 TIMER 309,504,884, 903 ,937 
1193  TK_OK 1191 

1409 TK_OK_TOO 1307 

166 TRACK 1189,1192,1305,1308 
221 TRACK _NUM 536,947 ’ 
1141 VALID HEAD 1130 


230 WANTED BLOCK 
228 WANTED DRIVE 
eey WANTED TRACK 


554,564,595, 627, 967,977,1001,1002,1007, 1009, 1276 
330,353,489, 395,489, 532,544,648,678,703,725, 757,779, 954, 1021 ,1048,1198,1512 
535, 546,971,979, 11970, 1306 


14439 WEBUTH 1462 
1464 WEDONE 1445 
1427 WHENTER 1419 
1358 WERNEXT_BYTE 1362 
1402 WESTALLED 1397 
1460 WBZERO 1435 
172 WDISAKLE 1394 
171 WENABLEO 1316 
170 WENABLE1 1322 
1421 WRITE_HIT 1455 
1401 WRITE _HLOCK 464 
1320 WRITE_BLOCK1 1313 
1414 WRITE_HRYTE 133514554 ,1343,1447,1352, 1459, 1365, 1469,1474,1579,14504,1591 
1425 WRITE _CUMMON 1318 


168 WIDATA 
#13 ZERULBYTE 


1415,1422,1436 
1327,1344,1336,1440 , 14544, 14564, 1566, 1385 


cP tT TCT TPP PTSCCT TCT TEE SC TSP TTP SP PeommrPrprrrPpprereptetrtypb 


i 


FILE: SRUHIMEM: pADAMT 


LOLATION OBJECT 


0000 


0001 
v00S 
0005 
000'7 
0009 
DOO 
000d 
WOOF 


Errors= 


3B 


0000 
0060 
0000 
0O0U 
0000 
0000 
g000 
qovu 


§ 


CODE LINE 


TOON & Ch > Gi 


> 


HEWLETT-PACKARD: GR OHLMEM Cc) Coleco 1965 Confidential Mon, Y Nov 1965, 10:40 


SOURCE LINE 


*6801% 
NAME “Rev 04 - MJM* 
De_SR_PU MACRO jHeader Rev. 4 

»GUTO Ede SR PU 
Project: Tau, 85-101 
SS Hee Re Me WE HE HE HE Hes Hs Ee Rs GE EH SG 8 RO BE 
gs 8 
ot SRO MEM MmMsm & 
38 aa 


43 HE HE HE OE HE WE WE AG HE RE HE OE HE HR WE HE OR BE HE EO Bt 


Rev History 


Rev. Date Name Change 

6 2S5JUL1600 HME _ Uhanged software I[/U intrpt to 
show MTP_ACM_SEQ and ATP_APP 

a 23JUL1401p MJM TYhis copy is taken from the KB_68 


dircectory ORANGE system to be used 
in the tape mac software package 


4 20jul9ssa RPD created SR _HIMEM2, removed added SCI vector 
3 18jul1000a RPD added SCI interrupt vector 
2 7juli1l3da RPD replaced unused vectors with RET_VECTOR 
1 16jun940a_ JIM Corrected errors. 
0 1Sjunseo0p J1M Entered data. 
Function: Define the interupt vectors that are in the high memory 


of the 6801 located at FFFOH, Also defined is the RET_VECTOR 
interrupt service routine. 


Ede_SR_ PU MEND 


;Subroutines called (referenced, but not executed) 
? 


P Alok. 


EXT TAPE_MAC 
EXT ATP_APP 
, . 
3 dummy interrupt service routine 
} 
RET_VECTOR: RV1 ' junused vector interrupt service routine 
FD TAPE MAC jberial ifo interupt vector 
Pk RET _ VEU TUR ;limer overflow interrupt vector 
FD RET VECTOR ;Uutput compare interupt vector, i, @. timer interupt 
FOR RET VEC FOR jinput capture interupt vector 


FDU RET VECTOR s{KQt ~- maskable interrupt vector 


FDR KEP VE FOR sooftware interupt vector 
FDM RET VETO jNon-maskable interupt vector 
ae ATP APP jkeset interupt vector 


1 


FILE: SR HIMEN: pADAMT 


LING $ 


39 
44 
38 


SYMBUL 
ATP_APP 
RET_VECTOR’ 
TAPE_MAC 


CROSS REFERENCE TABLE 


TYPE REF ERENCES 


BE 53. 
P 47,48,49,50,51,52 
E 46 


PAGE 


- 


io 


HP 64060 Linker 


FILE/PROG NA PROGRAN DATA 


cove atte tree tere S008 Shar SOOe Some sone bie Sem tmek ween inte sane seeb etme Sent Sere cute HM Cote sete cont wee COT TONE HOE Wee Tome cet Send sane ‘tee teem nie “OP Fett MUON eoeR ent miu tees spon tee tear 


TAPE MAC: pADAM] F800 gO80 
D_ MTP: pADANT Qu’? 
MTP _TRLRE:pADAMT F9OBC 

MIP_ER_ TR: pADANT FYDu 

MTP_TR_ TC: pADAMT FSF 0 

MTP NIM _W:pAbaMT FAIB . 
TAPE_APP: pADANT FA2A O09E 
next address FFDO 00D) 
SR _HIMEM: pADAMT FFEF 

next address 0000 


XFER address= 0000 befined by DEFAULT 
absolute & link_com file name=TPA: pADAMT 
Total# of bytes loaded= OC3E 


Non, ¥ Nov 1985, 10:54 


CUMMON AKGOLUTE 


0400 


0800 


DATE 


Seat tye Stee Sty Stee Sie Mae Ce Tone ntRe 1280 LOEH mene AEOE Sule OER OTD THEE HOH HONE SORE Gn Sor fume rene ‘rad teee Mime Tete rate ON Hae one ene Sane meme meee ge, 


Non, 
Hon, 
Non, 
Mon, 
Mon, 
Mon, 
Mon, 


Mon, 


Page 


Nov 
Noy 
Novy 
Nov 
Noy 
Novy 
Nov 


Nov 


1963, 
1983, 
1985, 
19BS, 
198%, 
1983, 
196%, 


19S, 


TUME 


10:28 
10: 4¢ 
10:34 
10:45 
10; 37 
10:48 
10:41 


16:40 


COMMENTS 


Key 
Rey 
Rey 
Rev 
Rey 
Rev 
Rev 


Rev 


01 


— AMA 
- DLS 
~ RPD 
~ RPD 
- RPD 
- DLS 


- MIM 


HP 64000 Linker 


pare eee 200 mee thes ents oust SOP Se Send Send Spee come sem ofOe ene “wen GtIE SW Fate TEE HED THB Sted sect com “Yen EOE SOND Dan SOUS Seen ran Seer snes nety Suet cine s008 wen¢ MODE anes H1hE sme TEbe SOR Sets cute Seen Suet neue sete seem Tene 


{. 
SYMBUL R VALUE 

cs AT? _APP P FAZA 
A_DATA b 009C 
ATS iG D 009C 

c EREAK_ORFE P FICS 
CLEAN UART_HW  P FADE 
CNFG_WORD D 009C 

Cc CUMMAND BUFFER D 0080 
COUNT D 0099 
C3_WURD ) 00%8 

S - CURRENT_RAM D 0085 
CURRENT STATE =D 0097 
D1_MODE_WORD b 0098 

C DATA_EUFFER c 0400 
D MTP D 0097 
10_STATUS_BLOCK D 0094 

C LENGTH_OF_£0_ST A 0001 
MTP_NIM_WRITE P FAI 

ee HP TR REC P FYBC 

c HTP_TR_TCU P F9FO 
MEP TROTRANS =P F9D8 
H_DATA D 009D 

OQ K SIG D Ove 
NIM_BLOCK D 009C 
NUDE_ADDRESS —A_-0008 

G TAPE_MAC P F800 
raPE_STATUSO =D -00¥5 
TAPE-STATUS1 DD 0096 

) 

© 

o 

© 

© 

G& 

C 

ted 

a -. 


we ee eee 


DEF &Y 


TAPE_APP + pADAMT 
D_MTP : pADAMT 
D_MPP :pADAHNT 
MTIP_TR_ RE: pADAMT 
MTP TR VCs pADANT 
D_MIP: pAVDAMT 
TAPE _MAUC : pADAMT 
D_MTP : pADAMT 
D_MTP :pADANT 
TAPE _MAC i pADANT 
D_LMTP :pADAMT 
D_MTP : pADAMT 
D_MIP :pADANT 
D_MTP : pADAMT 
TAPE_MAC : pADAMT 
TAPE _MAC 1 pADAMT 


MTP_NIM_W: pADAMT 


MTP_TR_RE1pADAMT 


MTP_TR_YC:pADAMT 
MTP_TR_TRipADAMT 


D_MTP 1pADAMT 
D_MTP 1 pADAMT 
D_MTP :pADAMT 
D_MTP :pADAMT 
TAPE_MAL : pADAMT 
TAPE _MAU 1 pADAMT 
TAPE_MAC1pADAMI 


Mon, 7 Nov 1983, 


REFERENCES 


SR_HIMEM: pADAM TL 


MTP_TR_CRipADANT 
TAPE_APP :pADAMT 
TAPE_APP :pADAMT 


TAPE_APP 1 pADAMT 
MTP_TR_IC: pADAMT 


TAPE _APP :pADAMT 


TAPE_APP 1pADAMT 
TAPE_MAC: pADAMT 
TAPE_MAC i pADAMT 
TAPE_MAC :pADAMT 
TAPE_MAC:pADAMT 
MTP_NIM_W: pADAMT 
MIP_NIM_W:pADAMT 
TAPE_APP 1: pADAMT 


SR_HIMEM: pADAMNT 
TAPE_APP :pADAMT 
TAPE_APP : pADAMT 


MIP_TR RE: pADAMT TAPE_MAC:pADAMT 


TAPE_MAC: pADAMT 


TAPE_MAC: pADAMT 


ee: 


o~ 


(Cc @ Cc 


emulate 
external 
no 
na 
yes 


0 thru OFFFFH user ram 


end 
no 
no 


reset 
wait i 


modify io _port 78H to 0 


wait 1 


Modify io_port 78H to 1 


load N_E0S_05 


:N_EOS 


display memory _HARD_INIT mnemonic 
load &NEW :TUS_MM 


display memory 0 


load TAPE 


3 Coldstart load 


run from 0 


} Overlay 1 


run until address 1004H data 81H 


wait measurement_complete 


break 


modify memory 1004H to 0 
display registers 


run 


3 Overlay 2 


run until address 1004H data S1H 


wait measurement_complete 


break 
modify memory 
run 


; Overlay 3 


1004H to 0 


run until address 1004H data 1H 
wait measurement_complete 


break 
modify memory 
run 


3 Overlay 4 


1004H to 0 


run until address L004H data 81H 
wait measurement_complete 


break 
aadify memory 
run 


; Overlay % 


1O04H to 0 


run until address 1004H data 
Walt measurement complete 


break 
modify memory 
run 


1004H to 0 


81H 


status 


status 


Status 


status 


Status 


memory write 


memory write 


memory write 


memory write 


Memory write 


C> 


Ee @cc 


3 Overlay & 

run until address 1004H data 
wait measurement complete 
break 

modify memory 1t004H to 0 

run 


} Overlay 7 

run until address 1004H data 
wait measurement_complete 
break 

modify memory 1004H to 0 

run 


;} Overlay 8 

run until address 1004H data 
wait measurement_complete 
break 

modify memory 1004H to 0 

run 


} Overlay 9 

run until address 1004H data 
wait measurement_complete 
break 

s;load OVL_9 

modify memory 1004H to 0 
run 


run until address 1004H data 
wait measurement_complete 
end 


X1A132DT 


61H 


81H 


81H 


81H 


81H 


status 


Status 


status 


status 


status 


memory _ write 


memory write 


memory write 


memory write 


memory write 


